/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / w3 / url-vars.elc.z / url-vars.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 33 |on Mon M|ar  9 13|
|00000040| 3a 30 34 3a 34 33 20 31 | 39 39 38 0a 3b 3b 3b 20 |:04:43 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 77 33 2f 75 |s-20.3/l|isp/w3/u|
|000000a0| 72 6c 2d 76 61 72 73 2e | 65 6c 0a 3b 3b 3b 20 65 |rl-vars.|el.;;; e|
|000000b0| 6d 61 63 73 20 76 65 72 | 73 69 6f 6e 20 32 30 2e |macs ver|sion 20.|
|000000c0| 34 20 22 45 6d 65 72 61 | 6c 64 22 20 58 45 6d 61 |4 "Emera|ld" XEma|
|000000d0| 63 73 20 20 4c 75 63 69 | 64 2e 0a 3b 3b 3b 20 62 |cs  Luci|d..;;; b|
|000000e0| 79 74 65 63 6f 6d 70 20 | 76 65 72 73 69 6f 6e 20 |ytecomp |version |
|000000f0| 32 2e 32 35 20 58 45 6d | 61 63 73 3b 20 32 32 2d |2.25 XEm|acs; 22-|
|00000100| 4d 61 72 2d 39 36 2e 0a | 3b 3b 3b 20 6f 70 74 69 |Mar-96..|;;; opti|
|00000110| 6d 69 7a 61 74 69 6f 6e | 20 69 73 20 6f 6e 2e 0a |mization| is on..|
|00000120| 3b 3b 3b 20 74 68 69 73 | 20 66 69 6c 65 20 75 73 |;;; this| file us|
|00000130| 65 73 20 6f 70 63 6f 64 | 65 73 20 77 68 69 63 68 |es opcod|es which|
|00000140| 20 64 6f 20 6e 6f 74 20 | 65 78 69 73 74 20 69 6e | do not |exist in|
|00000150| 20 45 6d 61 63 73 20 31 | 39 2e 0a 0a 28 69 66 20 | Emacs 1|9...(if |
|00000160| 28 61 6e 64 20 28 62 6f | 75 6e 64 70 20 27 65 6d |(and (bo|undp 'em|
|00000170| 61 63 73 2d 76 65 72 73 | 69 6f 6e 29 0a 09 20 28 |acs-vers|ion).. (|
|00000180| 6f 72 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |or (and |(boundp |
|00000190| 27 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 |'epoch::|version)|
|000001a0| 20 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 | epoch::|version)|
|000001b0| 0a 09 20 20 20 20 20 28 | 73 74 72 69 6e 67 2d 6c |..     (|string-l|
|000001c0| 65 73 73 70 20 65 6d 61 | 63 73 2d 76 65 72 73 69 |essp ema|cs-versi|
|000001d0| 6f 6e 20 22 32 30 22 29 | 29 29 0a 20 20 20 20 28 |on "20")|)).    (|
|000001e0| 65 72 72 6f 72 20 22 60 | 75 72 6c 2d 76 61 72 73 |error "`|url-vars|
|000001f0| 2e 65 6c 27 20 77 61 73 | 20 63 6f 6d 70 69 6c 65 |.el' was| compile|
|00000200| 64 20 66 6f 72 20 45 6d | 61 63 73 20 32 30 22 29 |d for Em|acs 20")|
|00000210| 29 0a 0a 28 6f 72 20 28 | 62 6f 75 6e 64 70 20 27 |)..(or (|boundp '|
|00000220| 63 75 72 72 65 6e 74 2d | 6c 6f 61 64 2d 6c 69 73 |current-|load-lis|
|00000230| 74 29 20 28 73 65 74 71 | 20 63 75 72 72 65 6e 74 |t) (setq| current|
|00000240| 2d 6c 6f 61 64 2d 6c 69 | 73 74 20 6e 69 6c 29 29 |-load-li|st nil))|
|00000250| 0a 0a 0a 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |...(byte|-code ".|
|00000260| c1 c2 8f 88 c3 c4 21 ab | 85 c5 c6 21 ac 88 c7 c8 |......!.|...!....|
|00000270| 4d 88 c9 ca 4d 88 c0 87 | 22 20 5b 6e 69 6c 20 28 |M...M...|" [nil (|
|00000280| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 c1 21 87 22 |byte-cod|e "..!."|
|00000290| 20 5b 72 65 71 75 69 72 | 65 20 63 75 73 74 6f 6d | [requir|e custom|
|000002a0| 5d 20 32 29 20 28 28 65 | 72 72 6f 72 29 29 20 66 |] 2) ((e|rror)) f|
|000002b0| 65 61 74 75 72 65 70 20 | 63 75 73 74 6f 6d 20 66 |eaturep |custom f|
|000002c0| 62 6f 75 6e 64 70 20 63 | 75 73 74 6f 6d 2d 64 65 |boundp c|ustom-de|
|000002d0| 63 6c 61 72 65 2d 76 61 | 72 69 61 62 6c 65 20 64 |clare-va|riable d|
|000002e0| 65 66 67 72 6f 75 70 20 | 28 6d 61 63 72 6f 20 2e |efgroup |(macro .|
|000002f0| 20 23 5b 28 26 72 65 73 | 74 20 61 72 67 73 29 20 | #[(&res|t args) |
|00000300| 22 c0 87 22 20 5b 6e 69 | 6c 5d 20 31 5d 29 20 64 |".." [ni|l] 1]) d|
|00000310| 65 66 63 75 73 74 6f 6d | 20 28 6d 61 63 72 6f 20 |efcustom| (macro |
|00000320| 2e 20 23 5b 28 76 61 72 | 20 76 61 6c 75 65 20 64 |. #[(var| value d|
|00000330| 6f 63 20 26 72 65 73 74 | 20 61 72 67 73 29 20 22 |oc &rest| args) "|
|00000340| c0 09 5c 6e 0b 46 87 22 | 20 5b 64 65 66 76 61 72 |..\n.F."| [defvar|
|00000350| 20 76 61 72 20 76 61 6c | 75 65 20 64 6f 63 5d 20 | var val|ue doc] |
|00000360| 34 5d 29 5d 20 33 29 0a | 23 40 32 37 20 56 65 72 |4])] 3).|#@27 Ver|
|00000370| 73 69 6f 6e 20 23 20 6f | 66 20 55 52 4c 20 70 61 |sion # o|f URL pa|
|00000380| 63 6b 61 67 65 2e 1f 0a | 28 64 65 66 63 6f 6e 73 |ckage...|(defcons|
|00000390| 74 20 75 72 6c 2d 76 65 | 72 73 69 6f 6e 20 28 62 |t url-ve|rsion (b|
|000003a0| 79 74 65 2d 63 6f 64 65 | 20 22 c0 19 c2 c3 09 5c |yte-code| ".....\|
|000003b0| 22 ab 88 09 c4 94 c4 95 | 4f aa 81 09 29 87 22 20 |".......|O...)." |
|000003c0| 5b 22 70 34 2e 30 70 72 | 65 2e 31 34 22 20 78 20 |["p4.0pr|e.14" x |
|000003d0| 73 74 72 69 6e 67 2d 6d | 61 74 63 68 20 22 53 74 |string-m|atch "St|
|000003e0| 61 74 65 3a 20 5c 5c 28 | 5b 5e 20 09 5c 6e 5d 2b |ate: \\(|[^ .\n]+|
|000003f0| 5c 5c 29 22 20 31 5d 20 | 33 29 20 28 23 24 20 2e |\\)" 1] |3) (#$ .|
|00000400| 20 38 37 37 29 29 0a 28 | 62 79 74 65 2d 63 6f 64 | 877)).(|byte-cod|
|00000410| 65 20 22 c0 c1 c2 c3 c4 | c5 25 88 c0 c6 c2 c7 c8 |e ".....|.%......|
|00000420| c9 c4 c1 26 07 88 c0 ca | c2 cb c8 c9 c8 cc c4 c1 |...&....|........|
|00000430| 26 09 88 c0 cd c2 ce c8 | c9 c4 c1 26 07 88 c0 cf |&.......|...&....|
|00000440| c2 d0 c8 c9 c8 d1 c4 c1 | 26 09 88 c0 d2 c2 d3 c8 |........|&.......|
|00000450| c9 c4 c1 26 07 88 c0 d4 | c2 d5 c8 c9 c4 c1 26 07 |...&....|......&.|
|00000460| 87 22 20 5b 63 75 73 74 | 6f 6d 2d 64 65 63 6c 61 |." [cust|om-decla|
|00000470| 72 65 2d 67 72 6f 75 70 | 20 75 72 6c 20 6e 69 6c |re-group| url nil|
|00000480| 20 22 55 6e 69 66 6f 72 | 6d 20 52 65 73 6f 75 72 | "Unifor|m Resour|
|00000490| 63 65 20 4c 6f 63 61 74 | 6f 72 20 74 6f 6f 6c 22 |ce Locat|or tool"|
|000004a0| 20 3a 67 72 6f 75 70 20 | 68 79 70 65 72 6d 65 64 | :group |hypermed|
|000004b0| 69 61 20 75 72 6c 2d 66 | 69 6c 65 20 22 55 52 4c |ia url-f|ile "URL|
|000004c0| 20 73 74 6f 72 61 67 65 | 22 20 3a 70 72 65 66 69 | storage|" :prefi|
|000004d0| 78 20 22 75 72 6c 2d 22 | 20 75 72 6c 2d 63 61 63 |x "url-"| url-cac|
|000004e0| 68 65 20 22 55 52 4c 20 | 63 61 63 68 65 22 20 22 |he "URL |cache" "|
|000004f0| 75 72 6c 2d 63 61 63 68 | 65 2d 22 20 75 72 6c 2d |url-cach|e-" url-|
|00000500| 68 69 73 74 6f 72 79 20 | 22 48 69 73 74 6f 72 79 |history |"History|
|00000510| 20 76 61 72 69 61 62 6c | 65 73 20 69 6e 20 74 68 | variabl|es in th|
|00000520| 65 20 55 52 4c 20 70 61 | 63 6b 61 67 65 22 20 75 |e URL pa|ckage" u|
|00000530| 72 6c 2d 63 6f 6f 6b 69 | 65 20 22 55 52 4c 20 63 |rl-cooki|e "URL c|
|00000540| 6f 6f 6b 69 65 73 22 20 | 22 75 72 6c 2d 63 6f 6f |ookies" |"url-coo|
|00000550| 6b 69 65 2d 22 20 75 72 | 6c 2d 6d 69 6d 65 20 22 |kie-" ur|l-mime "|
|00000560| 4d 49 4d 45 20 6f 70 74 | 69 6f 6e 73 20 6f 66 20 |MIME opt|ions of |
|00000570| 55 52 4c 22 20 75 72 6c | 2d 68 61 69 72 79 20 22 |URL" url|-hairy "|
|00000580| 48 61 69 72 79 20 6f 70 | 74 69 6f 6e 73 20 6f 66 |Hairy op|tions of|
|00000590| 20 55 52 4c 22 5d 20 31 | 30 29 0a 23 40 34 31 20 | URL"] 1|0).#@41 |
|000005a0| 2a 57 68 65 74 68 65 72 | 20 74 68 65 20 63 75 72 |*Whether| the cur|
|000005b0| 72 65 6e 74 20 55 52 4c | 20 63 61 6e 20 62 65 20 |rent URL| can be |
|000005c0| 63 61 63 68 65 64 2e 1f | 0a 28 64 65 66 76 61 72 |cached..|.(defvar|
|000005d0| 20 75 72 6c 2d 63 75 72 | 72 65 6e 74 2d 63 61 6e | url-cur|rent-can|
|000005e0| 2d 62 65 2d 63 61 63 68 | 65 64 20 74 20 28 23 24 |-be-cach|ed t (#$|
|000005f0| 20 2e 20 2d 31 34 34 30 | 29 29 0a 23 40 34 34 20 | . -1440|)).#@44 |
|00000600| 41 20 70 61 72 73 65 64 | 20 72 65 70 72 65 73 65 |A parsed| represe|
|00000610| 6e 74 61 74 69 6f 6e 20 | 6f 66 20 74 68 65 20 63 |ntation |of the c|
|00000620| 75 72 72 65 6e 74 20 75 | 72 6c 1f 0a 28 64 65 66 |urrent u|rl..(def|
|00000630| 76 61 72 20 75 72 6c 2d | 63 75 72 72 65 6e 74 2d |var url-|current-|
|00000640| 6f 62 6a 65 63 74 20 6e | 69 6c 20 28 23 24 20 2e |object n|il (#$ .|
|00000650| 20 31 35 33 36 29 29 0a | 23 40 34 38 20 2a 54 68 | 1536)).|#@48 *Th|
|00000660| 65 20 63 61 6c 6c 62 61 | 63 6b 20 66 75 6e 63 74 |e callba|ck funct|
|00000670| 69 6f 6e 20 66 6f 72 20 | 74 68 65 20 63 75 72 72 |ion for |the curr|
|00000680| 65 6e 74 20 62 75 66 66 | 65 72 2e 1f 0a 28 64 65 |ent buff|er...(de|
|00000690| 66 76 61 72 20 75 72 6c | 2d 63 75 72 72 65 6e 74 |fvar url|-current|
|000006a0| 2d 63 61 6c 6c 62 61 63 | 6b 2d 66 75 6e 63 20 6e |-callbac|k-func n|
|000006b0| 69 6c 20 28 23 24 20 2e | 20 2d 31 36 32 39 29 29 |il (#$ .| -1629))|
|000006c0| 0a 23 40 31 35 30 20 2a | 54 68 65 20 64 61 74 61 |.#@150 *|The data|
|000006d0| 20 74 6f 20 62 65 20 70 | 61 73 73 65 64 20 74 6f | to be p|assed to|
|000006e0| 20 74 68 65 20 63 61 6c | 6c 62 61 63 6b 20 66 75 | the cal|lback fu|
|000006f0| 6e 63 74 69 6f 6e 2e 20 | 20 54 68 69 73 20 73 68 |nction. | This sh|
|00000700| 6f 75 6c 64 20 62 65 20 | 61 20 6c 69 73 74 2c 0a |ould be |a list,.|
|00000710| 65 61 63 68 20 69 74 65 | 6d 20 69 6e 20 74 68 65 |each ite|m in the|
|00000720| 20 6c 69 73 74 20 77 69 | 6c 6c 20 62 65 20 61 6e | list wi|ll be an|
|00000730| 20 61 72 67 75 6d 65 6e | 74 20 74 6f 20 74 68 65 | argumen|t to the|
|00000740| 20 75 72 6c 2d 63 75 72 | 72 65 6e 74 2d 63 61 6c | url-cur|rent-cal|
|00000750| 6c 62 61 63 6b 2d 66 75 | 6e 63 2e 1f 0a 28 64 65 |lback-fu|nc...(de|
|00000760| 66 76 61 72 20 75 72 6c | 2d 63 75 72 72 65 6e 74 |fvar url|-current|
|00000770| 2d 63 61 6c 6c 62 61 63 | 6b 2d 64 61 74 61 20 6e |-callbac|k-data n|
|00000780| 69 6c 20 28 23 24 20 2e | 20 2d 31 37 33 35 29 29 |il (#$ .| -1735))|
|00000790| 0a 28 6d 61 70 63 61 72 | 20 27 6d 61 6b 65 2d 76 |.(mapcar| 'make-v|
|000007a0| 61 72 69 61 62 6c 65 2d | 62 75 66 66 65 72 2d 6c |ariable-|buffer-l|
|000007b0| 6f 63 61 6c 20 27 28 75 | 72 6c 2d 63 75 72 72 65 |ocal '(u|rl-curre|
|000007c0| 6e 74 2d 63 61 6c 6c 62 | 61 63 6b 2d 64 61 74 61 |nt-callb|ack-data|
|000007d0| 20 75 72 6c 2d 63 75 72 | 72 65 6e 74 2d 63 61 6c | url-cur|rent-cal|
|000007e0| 6c 62 61 63 6b 2d 66 75 | 6e 63 20 75 72 6c 2d 63 |lback-fu|nc url-c|
|000007f0| 75 72 72 65 6e 74 2d 63 | 61 6e 2d 62 65 2d 63 61 |urrent-c|an-be-ca|
|00000800| 63 68 65 64 20 75 72 6c | 2d 63 75 72 72 65 6e 74 |ched url|-current|
|00000810| 2d 63 6f 6e 74 65 6e 74 | 2d 6c 65 6e 67 74 68 20 |-content|-length |
|00000820| 75 72 6c 2d 63 75 72 72 | 65 6e 74 2d 69 73 69 6e |url-curr|ent-isin|
|00000830| 64 65 78 20 75 72 6c 2d | 63 75 72 72 65 6e 74 2d |dex url-|current-|
|00000840| 6d 69 6d 65 2d 65 6e 63 | 6f 64 69 6e 67 20 75 72 |mime-enc|oding ur|
|00000850| 6c 2d 63 75 72 72 65 6e | 74 2d 6d 69 6d 65 2d 68 |l-curren|t-mime-h|
|00000860| 65 61 64 65 72 73 20 75 | 72 6c 2d 63 75 72 72 65 |eaders u|rl-curre|
|00000870| 6e 74 2d 6d 69 6d 65 2d | 74 79 70 65 20 75 72 6c |nt-mime-|type url|
|00000880| 2d 63 75 72 72 65 6e 74 | 2d 6d 69 6d 65 2d 76 69 |-current|-mime-vi|
|00000890| 65 77 65 72 20 75 72 6c | 2d 63 75 72 72 65 6e 74 |ewer url|-current|
|000008a0| 2d 6f 62 6a 65 63 74 20 | 75 72 6c 2d 63 75 72 72 |-object |url-curr|
|000008b0| 65 6e 74 2d 72 65 66 65 | 72 65 72 29 29 0a 23 40 |ent-refe|rer)).#@|
|000008c0| 32 37 20 57 68 65 72 65 | 20 63 6f 6f 6b 69 65 73 |27 Where| cookies|
|000008d0| 20 61 72 65 20 73 74 6f | 72 65 64 2e 1f 0a 28 64 | are sto|red...(d|
|000008e0| 65 66 76 61 72 20 75 72 | 6c 2d 63 6f 6f 6b 69 65 |efvar ur|l-cookie|
|000008f0| 2d 73 74 6f 72 61 67 65 | 20 6e 69 6c 20 28 23 24 |-storage| nil (#$|
|00000900| 20 2e 20 32 32 34 33 29 | 29 0a 23 40 33 34 20 57 | . 2243)|).#@34 W|
|00000910| 68 65 72 65 20 73 65 63 | 75 72 65 20 63 6f 6f 6b |here sec|ure cook|
|00000920| 69 65 73 20 61 72 65 20 | 73 74 6f 72 65 64 2e 1f |ies are |stored..|
|00000930| 0a 28 64 65 66 76 61 72 | 20 75 72 6c 2d 63 6f 6f |.(defvar| url-coo|
|00000940| 6b 69 65 2d 73 65 63 75 | 72 65 2d 73 74 6f 72 61 |kie-secu|re-stora|
|00000950| 67 65 20 6e 69 6c 20 28 | 23 24 20 2e 20 32 33 31 |ge nil (|#$ . 231|
|00000960| 39 29 29 0a 28 63 75 73 | 74 6f 6d 2d 64 65 63 6c |9)).(cus|tom-decl|
|00000970| 61 72 65 2d 76 61 72 69 | 61 62 6c 65 20 27 75 72 |are-vari|able 'ur|
|00000980| 6c 2d 63 6f 6f 6b 69 65 | 2d 66 69 6c 65 20 27 6e |l-cookie|-file 'n|
|00000990| 69 6c 20 22 2a 57 68 65 | 72 65 20 63 6f 6f 6b 69 |il "*Whe|re cooki|
|000009a0| 65 73 20 61 72 65 20 73 | 74 6f 72 65 64 20 6f 6e |es are s|tored on|
|000009b0| 20 64 69 73 6b 2e 22 20 | 3a 74 79 70 65 20 27 28 | disk." |:type '(|
|000009c0| 63 68 6f 69 63 65 20 28 | 63 6f 6e 73 74 20 3a 74 |choice (|const :t|
|000009d0| 61 67 20 22 44 65 66 61 | 75 6c 74 22 20 3a 76 61 |ag "Defa|ult" :va|
|000009e0| 6c 75 65 20 6e 69 6c 29 | 20 66 69 6c 65 29 20 3a |lue nil)| file) :|
|000009f0| 67 72 6f 75 70 20 27 75 | 72 6c 2d 66 69 6c 65 20 |group 'u|rl-file |
|00000a00| 3a 67 72 6f 75 70 20 27 | 75 72 6c 2d 63 6f 6f 6b |:group '|url-cook|
|00000a10| 69 65 29 0a 28 63 75 73 | 74 6f 6d 2d 64 65 63 6c |ie).(cus|tom-decl|
|00000a20| 61 72 65 2d 76 61 72 69 | 61 62 6c 65 20 27 75 72 |are-vari|able 'ur|
|00000a30| 6c 2d 64 65 66 61 75 6c | 74 2d 72 65 74 72 69 65 |l-defaul|t-retrie|
|00000a40| 76 61 6c 2d 70 72 6f 63 | 20 27 27 75 72 6c 2d 64 |val-proc| ''url-d|
|00000a50| 65 66 61 75 6c 74 2d 63 | 61 6c 6c 62 61 63 6b 20 |efault-c|allback |
|00000a60| 22 2a 54 68 65 20 64 65 | 66 61 75 6c 74 20 61 63 |"*The de|fault ac|
|00000a70| 74 69 6f 6e 20 74 6f 20 | 74 61 6b 65 20 77 68 65 |tion to |take whe|
|00000a80| 6e 20 61 6e 20 61 73 79 | 6e 63 68 72 6f 6e 6f 75 |n an asy|nchronou|
|00000a90| 73 20 72 65 74 72 69 65 | 76 61 6c 20 63 6f 6d 70 |s retrie|val comp|
|00000aa0| 6c 65 74 65 73 2e 22 20 | 3a 74 79 70 65 20 27 66 |letes." |:type 'f|
|00000ab0| 75 6e 63 74 69 6f 6e 20 | 3a 67 72 6f 75 70 20 27 |unction |:group '|
|00000ac0| 75 72 6c 2d 68 61 69 72 | 79 29 0a 28 63 75 73 74 |url-hair|y).(cust|
|00000ad0| 6f 6d 2d 64 65 63 6c 61 | 72 65 2d 76 61 72 69 61 |om-decla|re-varia|
|00000ae0| 62 6c 65 20 27 75 72 6c | 2d 68 6f 6e 6f 72 2d 72 |ble 'url|-honor-r|
|00000af0| 65 66 72 65 73 68 2d 72 | 65 71 75 65 73 74 73 20 |efresh-r|equests |
|00000b00| 27 74 20 22 2a 57 68 65 | 74 68 65 72 20 74 6f 20 |'t "*Whe|ther to |
|00000b10| 64 6f 20 61 75 74 6f 6d | 61 74 69 63 20 70 61 67 |do autom|atic pag|
|00000b20| 65 20 72 65 6c 6f 61 64 | 73 20 61 74 20 74 68 65 |e reload|s at the|
|00000b30| 20 72 65 71 75 65 73 74 | 20 6f 66 20 74 68 65 20 | request| of the |
|00000b40| 64 6f 63 75 6d 65 6e 74 | 5c 6e 61 75 74 68 6f 72 |document|\nauthor|
|00000b50| 20 6f 72 20 74 68 65 20 | 73 65 72 76 65 72 20 76 | or the |server v|
|00000b60| 69 61 20 74 68 65 20 60 | 52 65 66 72 65 73 68 27 |ia the `|Refresh'|
|00000b70| 20 68 65 61 64 65 72 20 | 69 6e 20 61 6e 20 48 54 | header |in an HT|
|00000b80| 54 50 2f 31 2e 30 20 72 | 65 73 70 6f 6e 73 65 2e |TP/1.0 r|esponse.|
|00000b90| 5c 6e 49 66 20 6e 69 6c | 2c 20 6e 6f 20 72 65 66 |\nIf nil|, no ref|
|00000ba0| 72 65 73 68 20 72 65 71 | 75 65 73 74 73 20 77 69 |resh req|uests wi|
|00000bb0| 6c 6c 20 62 65 20 68 6f | 6e 6f 72 65 64 2e 5c 6e |ll be ho|nored.\n|
|00000bc0| 49 66 20 74 2c 20 61 6c | 6c 20 72 65 66 72 65 73 |If t, al|l refres|
|00000bd0| 68 20 72 65 71 75 65 73 | 74 73 20 77 69 6c 6c 20 |h reques|ts will |
|00000be0| 62 65 20 68 6f 6e 6f 72 | 65 64 2e 5c 6e 49 66 20 |be honor|ed.\nIf |
|00000bf0| 6e 6f 6e 2d 6e 69 6c 20 | 61 6e 64 20 6e 6f 74 20 |non-nil |and not |
|00000c00| 74 2c 20 74 68 65 20 75 | 73 65 72 20 77 69 6c 6c |t, the u|ser will|
|00000c10| 20 62 65 20 61 73 6b 65 | 64 20 66 6f 72 20 65 61 | be aske|d for ea|
|00000c20| 63 68 20 72 65 66 72 65 | 73 68 20 72 65 71 75 65 |ch refre|sh reque|
|00000c30| 73 74 2e 22 20 3a 74 79 | 70 65 20 27 28 63 68 6f |st." :ty|pe '(cho|
|00000c40| 69 63 65 20 28 63 6f 6e | 73 74 20 3a 74 61 67 20 |ice (con|st :tag |
|00000c50| 22 6f 66 66 22 20 6e 69 | 6c 29 20 28 63 6f 6e 73 |"off" ni|l) (cons|
|00000c60| 74 20 3a 74 61 67 20 22 | 6f 6e 22 20 74 29 20 28 |t :tag "|on" t) (|
|00000c70| 63 6f 6e 73 74 20 3a 74 | 61 67 20 22 61 73 6b 22 |const :t|ag "ask"|
|00000c80| 20 27 61 73 6b 29 29 20 | 3a 67 72 6f 75 70 20 27 | 'ask)) |:group '|
|00000c90| 75 72 6c 2d 68 61 69 72 | 79 29 0a 28 63 75 73 74 |url-hair|y).(cust|
|00000ca0| 6f 6d 2d 64 65 63 6c 61 | 72 65 2d 76 61 72 69 61 |om-decla|re-varia|
|00000cb0| 62 6c 65 20 27 75 72 6c | 2d 69 6e 68 69 62 69 74 |ble 'url|-inhibit|
|00000cc0| 2d 6d 69 6d 65 2d 70 61 | 72 73 69 6e 67 20 27 6e |-mime-pa|rsing 'n|
|00000cd0| 69 6c 20 22 57 68 65 74 | 68 65 72 20 74 6f 20 70 |il "Whet|her to p|
|00000ce0| 61 72 73 65 20 6f 75 74 | 20 28 61 6e 64 20 64 65 |arse out| (and de|
|00000cf0| 6c 65 74 65 29 20 74 68 | 65 20 4d 49 4d 45 20 68 |lete) th|e MIME h|
|00000d00| 65 61 64 65 72 73 20 66 | 72 6f 6d 20 61 20 6d 65 |eaders f|rom a me|
|00000d10| 73 73 61 67 65 2e 22 20 | 3a 74 79 70 65 20 27 62 |ssage." |:type 'b|
|00000d20| 6f 6f 6c 65 61 6e 20 3a | 67 72 6f 75 70 20 27 75 |oolean :|group 'u|
|00000d30| 72 6c 2d 6d 69 6d 65 29 | 0a 28 63 75 73 74 6f 6d |rl-mime)|.(custom|
|00000d40| 2d 64 65 63 6c 61 72 65 | 2d 76 61 72 69 61 62 6c |-declare|-variabl|
|00000d50| 65 20 27 75 72 6c 2d 61 | 75 74 6f 6d 61 74 69 63 |e 'url-a|utomatic|
|00000d60| 2d 63 61 63 68 69 6e 67 | 20 27 6e 69 6c 20 22 2a |-caching| 'nil "*|
|00000d70| 49 66 20 6e 6f 6e 2d 6e | 69 6c 2c 20 61 6c 6c 20 |If non-n|il, all |
|00000d80| 64 6f 63 75 6d 65 6e 74 | 73 20 77 69 6c 6c 20 62 |document|s will b|
|00000d90| 65 20 61 75 74 6f 6d 61 | 74 69 63 61 6c 6c 79 20 |e automa|tically |
|00000da0| 63 61 63 68 65 64 20 74 | 6f 20 74 68 65 20 6c 6f |cached t|o the lo|
|00000db0| 63 61 6c 5c 6e 64 69 73 | 6b 2e 22 20 3a 74 79 70 |cal\ndis|k." :typ|
|00000dc0| 65 20 27 62 6f 6f 6c 65 | 61 6e 20 3a 67 72 6f 75 |e 'boole|an :grou|
|00000dd0| 70 20 27 75 72 6c 2d 63 | 61 63 68 65 29 0a 28 63 |p 'url-c|ache).(c|
|00000de0| 75 73 74 6f 6d 2d 64 65 | 63 6c 61 72 65 2d 76 61 |ustom-de|clare-va|
|00000df0| 72 69 61 62 6c 65 20 27 | 75 72 6c 2d 63 61 63 68 |riable '|url-cach|
|00000e00| 65 2d 65 78 70 69 72 65 | 64 20 27 28 66 75 6e 63 |e-expire|d '(func|
|00000e10| 74 69 6f 6e 20 28 6c 61 | 6d 62 64 61 20 28 74 31 |tion (la|mbda (t1|
|00000e20| 20 74 32 29 20 28 3e 3d | 20 28 2d 20 28 63 61 72 | t2) (>=| (- (car|
|00000e30| 20 74 32 29 20 28 63 61 | 72 20 74 31 29 29 20 35 | t2) (ca|r t1)) 5|
|00000e40| 29 29 29 20 22 2a 41 20 | 66 75 6e 63 74 69 6f 6e |))) "*A |function|
|00000e50| 20 28 60 66 75 6e 63 61 | 6c 6c 27 61 62 6c 65 29 | (`funca|ll'able)|
|00000e60| 20 74 68 61 74 20 74 61 | 6b 65 73 20 74 77 6f 20 | that ta|kes two |
|00000e70| 74 69 6d 65 73 20 61 73 | 20 69 74 73 20 61 72 67 |times as| its arg|
|00000e80| 75 6d 65 6e 74 73 2c 20 | 61 6e 64 5c 6e 72 65 74 |uments, |and\nret|
|00000e90| 75 72 6e 73 20 6e 6f 6e | 2d 6e 69 6c 20 69 66 20 |urns non|-nil if |
|00000ea0| 74 68 65 20 73 65 63 6f | 6e 64 20 74 69 6d 65 20 |the seco|nd time |
|00000eb0| 69 73 20 27 74 6f 6f 20 | 6f 6c 64 27 20 77 68 65 |is 'too |old' whe|
|00000ec0| 6e 20 63 6f 6d 70 61 72 | 65 64 20 74 6f 20 74 68 |n compar|ed to th|
|00000ed0| 65 20 66 69 72 73 74 5c | 6e 74 69 6d 65 2e 22 20 |e first\|ntime." |
|00000ee0| 3a 74 79 70 65 20 27 66 | 75 6e 63 74 69 6f 6e 20 |:type 'f|unction |
|00000ef0| 3a 67 72 6f 75 70 20 27 | 75 72 6c 2d 63 61 63 68 |:group '|url-cach|
|00000f00| 65 29 0a 23 40 32 38 20 | 57 68 65 72 65 20 74 6f |e).#@28 |Where to|
|00000f10| 20 73 65 6e 64 20 62 75 | 67 20 72 65 70 6f 72 74 | send bu|g report|
|00000f20| 73 2e 1f 0a 28 64 65 66 | 76 61 72 20 75 72 6c 2d |s...(def|var url-|
|00000f30| 62 75 67 2d 61 64 64 72 | 65 73 73 20 22 77 6d 70 |bug-addr|ess "wmp|
|00000f40| 65 72 72 79 2b 77 33 40 | 63 73 2e 69 6e 64 69 61 |erry+w3@|cs.india|
|00000f50| 6e 61 2e 65 64 75 22 20 | 28 23 24 20 2e 20 33 38 |na.edu" |(#$ . 38|
|00000f60| 34 38 29 29 0a 28 63 75 | 73 74 6f 6d 2d 64 65 63 |48)).(cu|stom-dec|
|00000f70| 6c 61 72 65 2d 76 61 72 | 69 61 62 6c 65 20 27 75 |lare-var|iable 'u|
|00000f80| 72 6c 2d 63 6f 6f 6b 69 | 65 2d 63 6f 6e 66 69 72 |rl-cooki|e-confir|
|00000f90| 6d 61 74 69 6f 6e 20 27 | 6e 69 6c 20 22 2a 49 66 |mation '|nil "*If|
|00000fa0| 20 6e 6f 6e 2d 6e 69 6c | 2c 20 63 6f 6e 66 69 72 | non-nil|, confir|
|00000fb0| 6d 61 74 69 6f 6e 20 62 | 79 20 74 68 65 20 75 73 |mation b|y the us|
|00000fc0| 65 72 20 69 73 20 72 65 | 71 75 69 72 65 64 20 74 |er is re|quired t|
|00000fd0| 6f 20 61 63 63 65 70 74 | 20 48 54 54 50 20 63 6f |o accept| HTTP co|
|00000fe0| 6f 6b 69 65 73 2e 22 20 | 3a 74 79 70 65 20 27 62 |okies." |:type 'b|
|00000ff0| 6f 6f 6c 65 61 6e 20 3a | 67 72 6f 75 70 20 27 75 |oolean :|group 'u|
|00001000| 72 6c 2d 63 6f 6f 6b 69 | 65 29 0a 28 63 75 73 74 |rl-cooki|e).(cust|
|00001010| 6f 6d 2d 64 65 63 6c 61 | 72 65 2d 76 61 72 69 61 |om-decla|re-varia|
|00001020| 62 6c 65 20 27 75 72 6c | 2d 70 65 72 73 6f 6e 61 |ble 'url|-persona|
|00001030| 6c 2d 6d 61 69 6c 2d 61 | 64 64 72 65 73 73 20 27 |l-mail-a|ddress '|
|00001040| 6e 69 6c 20 22 2a 59 6f | 75 72 20 66 75 6c 6c 20 |nil "*Yo|ur full |
|00001050| 65 6d 61 69 6c 20 61 64 | 64 72 65 73 73 2e 5c 6e |email ad|dress.\n|
|00001060| 54 68 69 73 20 69 73 20 | 77 68 61 74 20 69 73 20 |This is |what is |
|00001070| 73 65 6e 74 20 74 6f 20 | 48 54 54 50 2f 31 2e 30 |sent to |HTTP/1.0|
|00001080| 20 73 65 72 76 65 72 73 | 20 61 73 20 74 68 65 20 | servers| as the |
|00001090| 46 52 4f 4d 20 66 69 65 | 6c 64 20 69 6e 20 61 6e |FROM fie|ld in an|
|000010a0| 20 48 54 54 50 2f 31 2e | 30 5c 6e 72 65 71 75 65 | HTTP/1.|0\nreque|
|000010b0| 73 74 2e 22 20 3a 74 79 | 70 65 20 27 28 63 68 6f |st." :ty|pe '(cho|
|000010c0| 69 63 65 20 28 63 6f 6e | 73 74 20 6e 69 6c 29 20 |ice (con|st nil) |
|000010d0| 73 74 72 69 6e 67 29 20 | 3a 67 72 6f 75 70 20 27 |string) |:group '|
|000010e0| 75 72 6c 29 0a 28 63 75 | 73 74 6f 6d 2d 64 65 63 |url).(cu|stom-dec|
|000010f0| 6c 61 72 65 2d 76 61 72 | 69 61 62 6c 65 20 27 75 |lare-var|iable 'u|
|00001100| 72 6c 2d 64 69 72 65 63 | 74 6f 72 79 2d 69 6e 64 |rl-direc|tory-ind|
|00001110| 65 78 2d 66 69 6c 65 20 | 27 22 69 6e 64 65 78 2e |ex-file |'"index.|
|00001120| 68 74 6d 6c 22 20 22 2a | 54 68 65 20 66 69 6c 65 |html" "*|The file|
|00001130| 6e 61 6d 65 20 74 6f 20 | 6c 6f 6f 6b 20 66 6f 72 |name to |look for|
|00001140| 20 77 68 65 6e 20 69 6e | 64 65 78 69 6e 67 20 61 | when in|dexing a|
|00001150| 20 64 69 72 65 63 74 6f | 72 79 2e 5c 6e 49 66 20 | directo|ry.\nIf |
|00001160| 74 68 69 73 20 66 69 6c | 65 20 65 78 69 73 74 73 |this fil|e exists|
|00001170| 2c 20 61 6e 64 20 69 73 | 20 72 65 61 64 61 62 6c |, and is| readabl|
|00001180| 65 2c 20 74 68 65 6e 20 | 69 74 20 77 69 6c 6c 20 |e, then |it will |
|00001190| 62 65 20 76 69 65 77 65 | 64 20 69 6e 73 74 65 61 |be viewe|d instea|
|000011a0| 64 20 6f 66 5c 6e 75 73 | 69 6e 67 20 60 64 69 72 |d of\nus|ing `dir|
|000011b0| 65 64 27 20 74 6f 20 76 | 69 65 77 20 74 68 65 20 |ed' to v|iew the |
|000011c0| 64 69 72 65 63 74 6f 72 | 79 2e 22 20 3a 74 79 70 |director|y." :typ|
|000011d0| 65 20 27 73 74 72 69 6e | 67 20 3a 67 72 6f 75 70 |e 'strin|g :group|
|000011e0| 20 27 75 72 6c 2d 66 69 | 6c 65 29 0a 28 63 75 73 | 'url-fi|le).(cus|
|000011f0| 74 6f 6d 2d 64 65 63 6c | 61 72 65 2d 76 61 72 69 |tom-decl|are-vari|
|00001200| 61 62 6c 65 20 27 75 72 | 6c 2d 70 72 69 76 61 63 |able 'ur|l-privac|
|00001210| 79 2d 6c 65 76 65 6c 20 | 27 27 28 65 6d 61 69 6c |y-level |''(email|
|00001220| 29 20 22 2a 48 6f 77 20 | 70 72 69 76 61 74 65 20 |) "*How |private |
|00001230| 79 6f 75 20 77 61 6e 74 | 20 79 6f 75 72 20 72 65 |you want| your re|
|00001240| 71 75 65 73 74 73 20 74 | 6f 20 62 65 2e 5c 6e 48 |quests t|o be.\nH|
|00001250| 54 54 50 2f 31 2e 30 20 | 68 61 73 20 68 65 61 64 |TTP/1.0 |has head|
|00001260| 65 72 20 66 69 65 6c 64 | 73 20 66 6f 72 20 76 61 |er field|s for va|
|00001270| 72 69 6f 75 73 20 69 6e | 66 6f 72 6d 61 74 69 6f |rious in|formatio|
|00001280| 6e 20 61 62 6f 75 74 20 | 74 68 65 20 75 73 65 72 |n about |the user|
|00001290| 2c 20 69 6e 63 6c 75 64 | 69 6e 67 5c 6e 6f 70 65 |, includ|ing\nope|
|000012a0| 72 61 74 69 6e 67 20 73 | 79 73 74 65 6d 20 69 6e |rating s|ystem in|
|000012b0| 66 6f 72 6d 61 74 69 6f | 6e 2c 20 65 6d 61 69 6c |formatio|n, email|
|000012c0| 20 61 64 64 72 65 73 73 | 65 73 2c 20 74 68 65 20 | address|es, the |
|000012d0| 6c 61 73 74 20 70 61 67 | 65 20 79 6f 75 20 76 69 |last pag|e you vi|
|000012e0| 73 69 74 65 64 2c 20 65 | 74 63 2e 5c 6e 54 68 69 |sited, e|tc.\nThi|
|000012f0| 73 20 76 61 72 69 61 62 | 6c 65 20 63 6f 6e 74 72 |s variab|le contr|
|00001300| 6f 6c 73 20 68 6f 77 20 | 6d 75 63 68 20 6f 66 20 |ols how |much of |
|00001310| 74 68 69 73 20 69 6e 66 | 6f 72 6d 61 74 69 6f 6e |this inf|ormation|
|00001320| 20 69 73 20 73 65 6e 74 | 2e 5c 6e 5c 6e 54 68 69 | is sent|.\n\nThi|
|00001330| 73 20 73 68 6f 75 6c 64 | 20 61 20 73 79 6d 62 6f |s should| a symbo|
|00001340| 6c 20 6f 72 20 61 20 6c | 69 73 74 2e 5c 6e 56 61 |l or a l|ist.\nVa|
|00001350| 6c 69 64 20 76 61 6c 75 | 65 73 20 69 66 20 61 20 |lid valu|es if a |
|00001360| 73 79 6d 62 6f 6c 20 61 | 72 65 3a 5c 6e 6e 6f 6e |symbol a|re:\nnon|
|00001370| 65 20 20 20 20 20 2d 2d | 20 53 65 6e 64 20 61 6c |e     --| Send al|
|00001380| 6c 20 69 6e 66 6f 72 6d | 61 74 69 6f 6e 5c 6e 6c |l inform|ation\nl|
|00001390| 6f 77 20 20 20 20 20 20 | 2d 2d 20 44 6f 6e 27 74 |ow      |-- Don't|
|000013a0| 20 73 65 6e 64 20 74 68 | 65 20 6c 61 73 74 20 6c | send th|e last l|
|000013b0| 6f 63 61 74 69 6f 6e 5c | 6e 68 69 67 68 20 20 20 |ocation\|nhigh   |
|000013c0| 20 20 2d 2d 20 44 6f 6e | 27 74 20 73 65 6e 64 20 |  -- Don|'t send |
|000013d0| 74 68 65 20 65 6d 61 69 | 6c 20 61 64 64 72 65 73 |the emai|l addres|
|000013e0| 73 20 6f 72 20 6c 61 73 | 74 20 6c 6f 63 61 74 69 |s or las|t locati|
|000013f0| 6f 6e 5c 6e 70 61 72 61 | 6e 6f 69 64 20 2d 2d 20 |on\npara|noid -- |
|00001400| 44 6f 6e 27 74 20 73 65 | 6e 64 20 61 6e 79 74 68 |Don't se|nd anyth|
|00001410| 69 6e 67 5c 6e 5c 6e 49 | 66 20 61 20 6c 69 73 74 |ing\n\nI|f a list|
|00001420| 2c 20 74 68 69 73 20 73 | 68 6f 75 6c 64 20 62 65 |, this s|hould be|
|00001430| 20 61 20 6c 69 73 74 20 | 6f 66 20 73 79 6d 62 6f | a list |of symbo|
|00001440| 6c 73 20 6f 66 20 77 68 | 61 74 20 4e 4f 54 20 74 |ls of wh|at NOT t|
|00001450| 6f 20 73 65 6e 64 2e 5c | 6e 56 61 6c 69 64 20 73 |o send.\|nValid s|
|00001460| 79 6d 62 6f 6c 73 20 61 | 72 65 3a 5c 6e 65 6d 61 |ymbols a|re:\nema|
|00001470| 69 6c 20 20 20 20 2d 2d | 20 74 68 65 20 65 6d 61 |il    --| the ema|
|00001480| 69 6c 20 61 64 64 72 65 | 73 73 5c 6e 6f 73 20 20 |il addre|ss\nos  |
|00001490| 20 20 20 20 20 2d 2d 20 | 74 68 65 20 6f 70 65 72 |     -- |the oper|
|000014a0| 61 74 69 6e 67 20 73 79 | 73 74 65 6d 20 69 6e 66 |ating sy|stem inf|
|000014b0| 6f 5c 6e 6c 61 73 74 6c | 6f 63 20 20 2d 2d 20 74 |o\nlastl|oc  -- t|
|000014c0| 68 65 20 6c 61 73 74 20 | 6c 6f 63 61 74 69 6f 6e |he last |location|
|000014d0| 5c 6e 61 67 65 6e 74 20 | 20 20 20 2d 2d 20 44 6f |\nagent |   -- Do|
|000014e0| 20 6e 6f 74 20 73 65 6e | 64 20 74 68 65 20 55 73 | not sen|d the Us|
|000014f0| 65 72 2d 41 67 65 6e 74 | 20 73 74 72 69 6e 67 5c |er-Agent| string\|
|00001500| 6e 63 6f 6f 6b 69 65 20 | 20 20 2d 2d 20 6e 65 76 |ncookie |  -- nev|
|00001510| 65 72 20 61 63 63 65 70 | 74 20 48 54 54 50 20 63 |er accep|t HTTP c|
|00001520| 6f 6f 6b 69 65 73 5c 6e | 5c 6e 53 61 6d 70 6c 65 |ookies\n|\nSample|
|00001530| 73 3a 5c 6e 5c 6e 20 28 | 73 65 74 71 20 75 72 6c |s:\n\n (|setq url|
|00001540| 2d 70 72 69 76 61 63 79 | 2d 6c 65 76 65 6c 20 27 |-privacy|-level '|
|00001550| 68 69 67 68 29 5c 6e 20 | 28 73 65 74 71 20 75 72 |high)\n |(setq ur|
|00001560| 6c 2d 70 72 69 76 61 63 | 79 2d 6c 65 76 65 6c 20 |l-privac|y-level |
|00001570| 27 28 65 6d 61 69 6c 20 | 6c 61 73 74 6c 6f 63 29 |'(email |lastloc)|
|00001580| 29 20 20 20 20 3b 3b 20 | 65 71 75 69 76 61 6c 65 |)    ;; |equivale|
|00001590| 6e 74 20 74 6f 20 27 68 | 69 67 68 5c 6e 20 28 73 |nt to 'h|igh\n (s|
|000015a0| 65 74 71 20 75 72 6c 2d | 70 72 69 76 61 63 79 2d |etq url-|privacy-|
|000015b0| 6c 65 76 65 6c 20 27 28 | 6f 73 29 29 5c 6e 5c 6e |level '(|os))\n\n|
|000015c0| 3a 3a 4e 4f 54 45 3a 3a | 5c 6e 54 68 69 73 20 76 |::NOTE::|\nThis v|
|000015d0| 61 72 69 61 62 6c 65 20 | 63 6f 6e 74 72 6f 6c 73 |ariable |controls|
|000015e0| 20 73 65 76 65 72 61 6c | 20 6f 74 68 65 72 20 76 | several| other v|
|000015f0| 61 72 69 61 62 6c 65 73 | 20 61 6e 64 20 69 73 20 |ariables| and is |
|00001600| 5f 4e 4f 54 5f 20 61 75 | 74 6f 6d 61 74 69 63 61 |_NOT_ au|tomatica|
|00001610| 6c 6c 79 5c 6e 75 70 64 | 61 74 65 64 2e 20 20 43 |lly\nupd|ated.  C|
|00001620| 61 6c 6c 20 74 68 65 20 | 66 75 6e 63 74 69 6f 6e |all the |function|
|00001630| 20 60 75 72 6c 2d 73 65 | 74 75 70 2d 70 72 69 76 | `url-se|tup-priv|
|00001640| 61 63 79 2d 69 6e 66 6f | 27 20 61 66 74 65 72 20 |acy-info|' after |
|00001650| 6d 6f 64 69 66 79 69 6e | 67 20 74 68 69 73 5c 6e |modifyin|g this\n|
|00001660| 76 61 72 69 61 62 6c 65 | 2e 22 20 3a 74 79 70 65 |variable|." :type|
|00001670| 20 27 28 63 68 6f 69 63 | 65 20 28 63 6f 6e 73 74 | '(choic|e (const|
|00001680| 20 3a 74 61 67 20 22 4e | 6f 6e 65 20 28 79 6f 75 | :tag "N|one (you|
|00001690| 20 62 65 6c 69 65 76 65 | 20 69 6e 20 74 68 65 20 | believe| in the |
|000016a0| 62 61 73 69 63 20 67 6f | 6f 64 6e 65 73 73 20 6f |basic go|odness o|
|000016b0| 66 20 68 75 6d 61 6e 69 | 74 79 29 22 20 3a 76 61 |f humani|ty)" :va|
|000016c0| 6c 75 65 20 6e 6f 6e 65 | 29 20 28 63 6f 6e 73 74 |lue none|) (const|
|000016d0| 20 3a 74 61 67 20 22 4c | 6f 77 20 28 64 6f 20 6e | :tag "L|ow (do n|
|000016e0| 6f 74 20 72 65 76 65 61 | 6c 20 6c 61 73 74 20 6c |ot revea|l last l|
|000016f0| 6f 63 61 74 69 6f 6e 29 | 22 20 3a 76 61 6c 75 65 |ocation)|" :value|
|00001700| 20 6c 6f 77 29 20 28 63 | 6f 6e 73 74 20 3a 74 61 | low) (c|onst :ta|
|00001710| 67 20 22 48 69 67 68 20 | 28 6e 6f 20 65 6d 61 69 |g "High |(no emai|
|00001720| 6c 20 61 64 64 72 65 73 | 73 20 6f 72 20 6c 61 73 |l addres|s or las|
|00001730| 74 20 6c 6f 63 61 74 69 | 6f 6e 29 22 20 3a 76 61 |t locati|on)" :va|
|00001740| 6c 75 65 20 68 69 67 68 | 29 20 28 63 6f 6e 73 74 |lue high|) (const|
|00001750| 20 3a 74 61 67 20 22 50 | 61 72 61 6e 6f 69 64 20 | :tag "P|aranoid |
|00001760| 28 72 65 76 65 61 6c 20 | 6e 6f 74 68 69 6e 67 21 |(reveal |nothing!|
|00001770| 29 22 20 3a 76 61 6c 75 | 65 20 70 61 72 61 6e 6f |)" :valu|e parano|
|00001780| 69 64 29 20 28 63 68 65 | 63 6b 6c 69 73 74 20 3a |id) (che|cklist :|
|00001790| 74 61 67 20 22 43 75 73 | 74 6f 6d 22 20 28 63 6f |tag "Cus|tom" (co|
|000017a0| 6e 73 74 20 3a 74 61 67 | 20 22 45 6d 61 69 6c 20 |nst :tag| "Email |
|000017b0| 61 64 64 72 65 73 73 22 | 20 3a 76 61 6c 75 65 20 |address"| :value |
|000017c0| 65 6d 61 69 6c 29 20 28 | 63 6f 6e 73 74 20 3a 74 |email) (|const :t|
|000017d0| 61 67 20 22 4f 70 65 72 | 61 74 69 6e 67 20 73 79 |ag "Oper|ating sy|
|000017e0| 73 74 65 6d 22 20 3a 76 | 61 6c 75 65 20 6f 73 29 |stem" :v|alue os)|
|000017f0| 20 28 63 6f 6e 73 74 20 | 3a 74 61 67 20 22 4c 61 | (const |:tag "La|
|00001800| 73 74 20 6c 6f 63 61 74 | 69 6f 6e 22 20 3a 76 61 |st locat|ion" :va|
|00001810| 6c 75 65 20 6c 61 73 74 | 6c 6f 63 29 20 28 63 6f |lue last|loc) (co|
|00001820| 6e 73 74 20 3a 74 61 67 | 20 22 42 72 6f 77 73 65 |nst :tag| "Browse|
|00001830| 72 20 69 64 65 6e 74 69 | 66 69 63 61 74 69 6f 6e |r identi|fication|
|00001840| 22 20 3a 76 61 6c 75 65 | 20 61 67 65 6e 74 29 20 |" :value| agent) |
|00001850| 28 63 6f 6e 73 74 20 3a | 74 61 67 20 22 4e 6f 20 |(const :|tag "No |
|00001860| 63 6f 6f 6b 69 65 73 22 | 20 3a 76 61 6c 75 65 20 |cookies"| :value |
|00001870| 63 6f 6f 6b 69 65 29 29 | 29 20 3a 67 72 6f 75 70 |cookie))|) :group|
|00001880| 20 27 75 72 6c 29 0a 23 | 40 33 36 20 4c 69 73 74 | 'url).#|@36 List|
|00001890| 20 6f 66 20 75 72 6c 73 | 20 76 69 73 69 74 65 64 | of urls| visited|
|000018a0| 20 74 68 69 73 20 73 65 | 73 73 69 6f 6e 2e 1f 0a | this se|ssion...|
|000018b0| 28 64 65 66 76 61 72 20 | 75 72 6c 2d 68 69 73 74 |(defvar |url-hist|
|000018c0| 6f 72 79 2d 6c 69 73 74 | 20 6e 69 6c 20 28 23 24 |ory-list| nil (#$|
|000018d0| 20 2e 20 36 32 38 34 29 | 29 0a 23 40 33 37 20 44 | . 6284)|).#@37 D|
|000018e0| 6f 20 6e 6f 74 20 64 6f | 20 64 65 63 6f 6d 70 72 |o not do| decompr|
|000018f0| 65 73 73 69 6f 6e 20 69 | 66 20 6e 6f 6e 2d 6e 69 |ession i|f non-ni|
|00001900| 6c 2e 1f 0a 28 64 65 66 | 76 61 72 20 75 72 6c 2d |l...(def|var url-|
|00001910| 69 6e 68 69 62 69 74 2d | 75 6e 63 6f 6d 70 72 65 |inhibit-|uncompre|
|00001920| 73 73 69 6f 6e 20 6e 69 | 6c 20 28 23 24 20 2e 20 |ssion ni|l (#$ . |
|00001930| 36 33 36 37 29 29 0a 28 | 63 75 73 74 6f 6d 2d 64 |6367)).(|custom-d|
|00001940| 65 63 6c 61 72 65 2d 76 | 61 72 69 61 62 6c 65 20 |eclare-v|ariable |
|00001950| 27 75 72 6c 2d 6b 65 65 | 70 2d 68 69 73 74 6f 72 |'url-kee|p-histor|
|00001960| 79 20 27 6e 69 6c 20 22 | 2a 43 6f 6e 74 72 6f 6c |y 'nil "|*Control|
|00001970| 73 20 77 68 65 74 68 65 | 72 20 74 6f 20 6b 65 65 |s whethe|r to kee|
|00001980| 70 20 61 20 6c 69 73 74 | 20 6f 66 20 61 6c 6c 20 |p a list| of all |
|00001990| 74 68 65 20 55 52 4c 53 | 20 62 65 69 6e 67 20 76 |the URLS| being v|
|000019a0| 69 73 69 74 65 64 2e 5c | 6e 49 66 20 6e 6f 6e 2d |isited.\|nIf non-|
|000019b0| 6e 69 6c 2c 20 75 72 6c | 20 77 69 6c 6c 20 6b 65 |nil, url| will ke|
|000019c0| 65 70 20 74 72 61 63 6b | 20 6f 66 20 61 6c 6c 20 |ep track| of all |
|000019d0| 74 68 65 20 55 52 4c 53 | 20 76 69 73 69 74 65 64 |the URLS| visited|
|000019e0| 2e 5c 6e 49 66 20 65 71 | 20 74 6f 20 60 74 27 2c |.\nIf eq| to `t',|
|000019f0| 20 74 68 65 6e 20 74 68 | 65 20 6c 69 73 74 20 69 | then th|e list i|
|00001a00| 73 20 73 61 76 65 64 20 | 74 6f 20 64 69 73 6b 20 |s saved |to disk |
|00001a10| 61 74 20 74 68 65 20 65 | 6e 64 20 6f 66 20 65 61 |at the e|nd of ea|
|00001a20| 63 68 20 65 6d 61 63 73 | 5c 6e 73 65 73 73 69 6f |ch emacs|\nsessio|
|00001a30| 6e 2e 22 20 3a 74 79 70 | 65 20 27 62 6f 6f 6c 65 |n." :typ|e 'boole|
|00001a40| 61 6e 20 3a 67 72 6f 75 | 70 20 27 75 72 6c 2d 68 |an :grou|p 'url-h|
|00001a50| 69 73 74 6f 72 79 29 0a | 28 63 75 73 74 6f 6d 2d |istory).|(custom-|
|00001a60| 64 65 63 6c 61 72 65 2d | 76 61 72 69 61 62 6c 65 |declare-|variable|
|00001a70| 20 27 75 72 6c 2d 75 6e | 63 6f 6d 70 72 65 73 73 | 'url-un|compress|
|00001a80| 6f 72 2d 61 6c 69 73 74 | 20 27 27 28 28 22 2e 7a |or-alist| ''((".z|
|00001a90| 22 20 2e 20 22 78 2d 67 | 7a 69 70 22 29 20 28 22 |" . "x-g|zip") ("|
|00001aa0| 2e 67 7a 22 20 2e 20 22 | 78 2d 67 7a 69 70 22 29 |.gz" . "|x-gzip")|
|00001ab0| 20 28 22 2e 75 75 65 22 | 20 2e 20 22 78 2d 75 75 | (".uue"| . "x-uu|
|00001ac0| 65 6e 63 6f 64 65 64 22 | 29 20 28 22 2e 68 71 78 |encoded"|) (".hqx|
|00001ad0| 22 20 2e 20 22 78 2d 68 | 71 78 22 29 20 28 22 2e |" . "x-h|qx") (".|
|00001ae0| 5a 22 20 2e 20 22 78 2d | 63 6f 6d 70 72 65 73 73 |Z" . "x-|compress|
|00001af0| 22 29 29 20 22 2a 41 6e | 20 61 73 73 6f 63 20 6c |")) "*An| assoc l|
|00001b00| 69 73 74 20 6f 66 20 66 | 69 6c 65 20 65 78 74 65 |ist of f|ile exte|
|00001b10| 6e 73 69 6f 6e 73 20 61 | 6e 64 20 74 68 65 20 61 |nsions a|nd the a|
|00001b20| 70 70 72 6f 70 72 69 61 | 74 65 5c 6e 63 6f 6e 74 |ppropria|te\ncont|
|00001b30| 65 6e 74 2d 74 72 61 6e | 73 66 65 72 2d 65 6e 63 |ent-tran|sfer-enc|
|00001b40| 6f 64 69 6e 67 73 20 66 | 6f 72 20 65 61 63 68 2e |odings f|or each.|
|00001b50| 22 20 3a 74 79 70 65 20 | 27 28 72 65 70 65 61 74 |" :type |'(repeat|
|00001b60| 20 28 63 6f 6e 73 20 3a | 66 6f 72 6d 61 74 20 22 | (cons :|format "|
|00001b70| 25 76 22 20 28 73 74 72 | 69 6e 67 20 3a 74 61 67 |%v" (str|ing :tag|
|00001b80| 20 22 45 78 74 65 6e 73 | 69 6f 6e 22 29 20 28 73 | "Extens|ion") (s|
|00001b90| 74 72 69 6e 67 20 3a 74 | 61 67 20 22 45 6e 63 6f |tring :t|ag "Enco|
|00001ba0| 64 69 6e 67 22 29 29 29 | 20 3a 67 72 6f 75 70 20 |ding")))| :group |
|00001bb0| 27 75 72 6c 2d 6d 69 6d | 65 29 0a 28 63 75 73 74 |'url-mim|e).(cust|
|00001bc0| 6f 6d 2d 64 65 63 6c 61 | 72 65 2d 76 61 72 69 61 |om-decla|re-varia|
|00001bd0| 62 6c 65 20 27 75 72 6c | 2d 6d 61 69 6c 2d 63 6f |ble 'url|-mail-co|
|00001be0| 6d 6d 61 6e 64 20 27 27 | 75 72 6c 2d 6d 61 69 6c |mmand ''|url-mail|
|00001bf0| 20 22 2a 54 68 69 73 20 | 66 75 6e 63 74 69 6f 6e | "*This |function|
|00001c00| 20 77 69 6c 6c 20 62 65 | 20 63 61 6c 6c 65 64 20 | will be| called |
|00001c10| 77 68 65 6e 65 76 65 72 | 20 75 72 6c 20 6e 65 65 |whenever| url nee|
|00001c20| 64 73 20 74 6f 20 73 65 | 6e 64 20 6d 61 69 6c 2e |ds to se|nd mail.|
|00001c30| 5c 6e 49 74 20 73 68 6f | 75 6c 64 20 65 6e 74 65 |\nIt sho|uld ente|
|00001c40| 72 20 61 20 6d 61 69 6c | 2d 6d 6f 64 65 2d 6c 69 |r a mail|-mode-li|
|00001c50| 6b 65 20 62 75 66 66 65 | 72 20 69 6e 20 74 68 65 |ke buffe|r in the|
|00001c60| 20 63 75 72 72 65 6e 74 | 20 77 69 6e 64 6f 77 2e | current| window.|
|00001c70| 5c 6e 54 68 65 20 63 6f | 6d 6d 61 6e 64 73 20 6d |\nThe co|mmands m|
|00001c80| 61 69 6c 2d 74 6f 20 61 | 6e 64 20 6d 61 69 6c 2d |ail-to a|nd mail-|
|00001c90| 73 75 62 6a 65 63 74 20 | 73 68 6f 75 6c 64 20 73 |subject |should s|
|00001ca0| 74 69 6c 6c 20 77 6f 72 | 6b 20 69 6e 20 74 68 69 |till wor|k in thi|
|00001cb0| 73 5c 6e 62 75 66 66 65 | 72 2c 20 61 6e 64 20 69 |s\nbuffe|r, and i|
|00001cc0| 74 20 73 68 6f 75 6c 64 | 20 75 73 65 20 6d 61 69 |t should| use mai|
|00001cd0| 6c 2d 68 65 61 64 65 72 | 2d 73 65 70 61 72 61 74 |l-header|-separat|
|00001ce0| 6f 72 20 69 66 20 70 6f | 73 73 69 62 6c 65 2e 22 |or if po|ssible."|
|00001cf0| 20 3a 74 79 70 65 20 27 | 66 75 6e 63 74 69 6f 6e | :type '|function|
|00001d00| 20 3a 67 72 6f 75 70 20 | 27 75 72 6c 29 0a 28 63 | :group |'url).(c|
|00001d10| 75 73 74 6f 6d 2d 64 65 | 63 6c 61 72 65 2d 76 61 |ustom-de|clare-va|
|00001d20| 72 69 61 62 6c 65 20 27 | 75 72 6c 2d 70 72 6f 78 |riable '|url-prox|
|00001d30| 79 2d 73 65 72 76 69 63 | 65 73 20 27 6e 69 6c 20 |y-servic|es 'nil |
|00001d40| 22 2a 41 6e 20 61 73 73 | 6f 63 20 6c 69 73 74 20 |"*An ass|oc list |
|00001d50| 6f 66 20 61 63 63 65 73 | 73 20 74 79 70 65 73 20 |of acces|s types |
|00001d60| 61 6e 64 20 73 65 72 76 | 65 72 73 20 74 68 61 74 |and serv|ers that|
|00001d70| 20 67 61 74 65 77 61 79 | 20 74 68 65 6d 2e 5c 6e | gateway| them.\n|
|00001d80| 4c 6f 6f 6b 73 20 6c 69 | 6b 65 20 28 28 5c 22 68 |Looks li|ke ((\"h|
|00001d90| 74 74 70 5c 22 20 2e 20 | 5c 22 68 6f 73 74 6e 61 |ttp\" . |\"hostna|
|00001da0| 6d 65 3a 70 6f 72 74 6e | 75 6d 62 65 72 5c 22 29 |me:portn|umber\")|
|00001db0| 20 2e 2e 2e 2e 29 20 20 | 54 68 69 73 20 69 73 20 | ....)  |This is |
|00001dc0| 73 65 74 20 75 70 5c 6e | 66 72 6f 6d 20 74 68 65 |set up\n|from the|
|00001dd0| 20 41 43 43 45 53 53 5f | 70 72 6f 78 79 20 65 6e | ACCESS_|proxy en|
|00001de0| 76 69 72 6f 6e 6d 65 6e | 74 20 76 61 72 69 61 62 |vironmen|t variab|
|00001df0| 6c 65 73 20 69 6e 20 75 | 72 6c 2d 64 6f 2d 73 65 |les in u|rl-do-se|
|00001e00| 74 75 70 2e 22 20 3a 74 | 79 70 65 20 27 28 72 65 |tup." :t|ype '(re|
|00001e10| 70 65 61 74 20 28 63 6f | 6e 73 20 3a 66 6f 72 6d |peat (co|ns :form|
|00001e20| 61 74 20 22 25 76 22 20 | 28 73 74 72 69 6e 67 20 |at "%v" |(string |
|00001e30| 3a 74 61 67 20 22 50 72 | 6f 74 6f 63 6f 6c 22 29 |:tag "Pr|otocol")|
|00001e40| 20 28 73 74 72 69 6e 67 | 20 3a 74 61 67 20 22 50 | (string| :tag "P|
|00001e50| 72 6f 78 79 22 29 29 29 | 20 3a 67 72 6f 75 70 20 |roxy")))| :group |
|00001e60| 27 75 72 6c 29 0a 28 63 | 75 73 74 6f 6d 2d 64 65 |'url).(c|ustom-de|
|00001e70| 63 6c 61 72 65 2d 76 61 | 72 69 61 62 6c 65 20 27 |clare-va|riable '|
|00001e80| 75 72 6c 2d 67 6c 6f 62 | 61 6c 2d 68 69 73 74 6f |url-glob|al-histo|
|00001e90| 72 79 2d 66 69 6c 65 20 | 27 6e 69 6c 20 22 2a 54 |ry-file |'nil "*T|
|00001ea0| 68 65 20 67 6c 6f 62 61 | 6c 20 68 69 73 74 6f 72 |he globa|l histor|
|00001eb0| 79 20 66 69 6c 65 20 75 | 73 65 64 20 62 79 20 62 |y file u|sed by b|
|00001ec0| 6f 74 68 20 4d 6f 73 61 | 69 63 2f 58 20 61 6e 64 |oth Mosa|ic/X and|
|00001ed0| 20 74 68 65 20 75 72 6c | 20 70 61 63 6b 61 67 65 | the url| package|
|00001ee0| 2e 5c 6e 54 68 69 73 20 | 66 69 6c 65 20 63 6f 6e |.\nThis |file con|
|00001ef0| 74 61 69 6e 73 20 61 20 | 6c 69 73 74 20 6f 66 20 |tains a |list of |
|00001f00| 61 6c 6c 20 74 68 65 20 | 55 52 4c 73 20 79 6f 75 |all the |URLs you|
|00001f10| 20 68 61 76 65 20 76 69 | 73 69 74 65 64 2e 20 20 | have vi|sited.  |
|00001f20| 54 68 69 73 20 66 69 6c | 65 5c 6e 69 73 20 70 61 |This fil|e\nis pa|
|00001f30| 72 73 65 64 20 61 74 20 | 73 74 61 72 74 75 70 20 |rsed at |startup |
|00001f40| 61 6e 64 20 75 73 65 64 | 20 74 6f 20 70 72 6f 76 |and used| to prov|
|00001f50| 69 64 65 20 55 52 4c 20 | 63 6f 6d 70 6c 65 74 69 |ide URL |completi|
|00001f60| 6f 6e 2e 22 20 3a 74 79 | 70 65 20 27 28 63 68 6f |on." :ty|pe '(cho|
|00001f70| 69 63 65 20 28 63 6f 6e | 73 74 20 3a 74 61 67 20 |ice (con|st :tag |
|00001f80| 22 44 65 66 61 75 6c 74 | 22 20 3a 76 61 6c 75 65 |"Default|" :value|
|00001f90| 20 6e 69 6c 29 20 66 69 | 6c 65 29 20 3a 67 72 6f | nil) fi|le) :gro|
|00001fa0| 75 70 20 27 75 72 6c 2d | 68 69 73 74 6f 72 79 29 |up 'url-|history)|
|00001fb0| 0a 28 63 75 73 74 6f 6d | 2d 64 65 63 6c 61 72 65 |.(custom|-declare|
|00001fc0| 2d 76 61 72 69 61 62 6c | 65 20 27 75 72 6c 2d 67 |-variabl|e 'url-g|
|00001fd0| 6c 6f 62 61 6c 2d 68 69 | 73 74 6f 72 79 2d 73 61 |lobal-hi|story-sa|
|00001fe0| 76 65 2d 69 6e 74 65 72 | 76 61 6c 20 27 33 36 30 |ve-inter|val '360|
|00001ff0| 30 20 22 2a 54 68 65 20 | 6e 75 6d 62 65 72 20 6f |0 "*The |number o|
|00002000| 66 20 73 65 63 6f 6e 64 | 73 20 62 65 74 77 65 65 |f second|s betwee|
|00002010| 6e 20 61 75 74 6f 6d 61 | 74 69 63 20 73 61 76 65 |n automa|tic save|
|00002020| 73 20 6f 66 20 74 68 65 | 20 68 69 73 74 6f 72 79 |s of the| history|
|00002030| 20 6c 69 73 74 2e 5c 6e | 44 65 66 61 75 6c 74 20 | list.\n|Default |
|00002040| 69 73 20 31 20 68 6f 75 | 72 2e 20 20 4e 6f 74 65 |is 1 hou|r.  Note|
|00002050| 20 74 68 61 74 20 69 66 | 20 79 6f 75 20 63 68 61 | that if| you cha|
|00002060| 6e 67 65 20 74 68 69 73 | 20 76 61 72 69 61 62 6c |nge this| variabl|
|00002070| 65 20 6f 75 74 73 69 64 | 65 20 6f 66 5c 6e 74 68 |e outsid|e of\nth|
|00002080| 65 20 60 63 75 73 74 6f | 6d 69 7a 65 27 20 69 6e |e `custo|mize' in|
|00002090| 74 65 72 66 61 63 65 20 | 61 66 74 65 72 20 60 75 |terface |after `u|
|000020a0| 72 6c 2d 64 6f 2d 73 65 | 74 75 70 27 20 68 61 73 |rl-do-se|tup' has|
|000020b0| 20 62 65 65 6e 20 72 75 | 6e 2c 20 79 6f 75 20 6e | been ru|n, you n|
|000020c0| 65 65 64 5c 6e 74 6f 20 | 72 75 6e 20 74 68 65 20 |eed\nto |run the |
|000020d0| 60 75 72 6c 2d 73 65 74 | 75 70 2d 73 61 76 65 2d |`url-set|up-save-|
|000020e0| 74 69 6d 65 72 27 20 66 | 75 6e 63 74 69 6f 6e 20 |timer' f|unction |
|000020f0| 6d 61 6e 75 61 6c 6c 79 | 2e 22 20 3a 73 65 74 20 |manually|." :set |
|00002100| 28 66 75 6e 63 74 69 6f | 6e 20 28 6c 61 6d 62 64 |(functio|n (lambd|
|00002110| 61 20 28 76 61 72 20 76 | 61 6c 29 20 28 73 65 74 |a (var v|al) (set|
|00002120| 2d 64 65 66 61 75 6c 74 | 20 76 61 72 20 76 61 6c |-default| var val|
|00002130| 29 20 28 61 6e 64 20 28 | 66 65 61 74 75 72 65 70 |) (and (|featurep|
|00002140| 20 27 75 72 6c 29 20 28 | 66 62 6f 75 6e 64 70 20 | 'url) (|fboundp |
|00002150| 27 75 72 6c 2d 73 65 74 | 75 70 2d 73 61 76 65 2d |'url-set|up-save-|
|00002160| 74 69 6d 65 72 29 20 28 | 75 72 6c 2d 73 65 74 75 |timer) (|url-setu|
|00002170| 70 2d 73 61 76 65 2d 74 | 69 6d 65 72 29 29 29 29 |p-save-t|imer))))|
|00002180| 20 3a 74 79 70 65 20 27 | 69 6e 74 65 67 65 72 20 | :type '|integer |
|00002190| 3a 67 72 6f 75 70 20 27 | 75 72 6c 2d 68 69 73 74 |:group '|url-hist|
|000021a0| 6f 72 79 29 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 |ory).(by|te-code |
|000021b0| 22 c0 c1 21 ac 82 c2 11 | c1 0b 42 13 c2 87 22 20 |"..!....|..B..." |
|000021c0| 5b 62 6f 75 6e 64 70 20 | 75 72 6c 2d 67 6c 6f 62 |[boundp |url-glob|
|000021d0| 61 6c 2d 68 69 73 74 6f | 72 79 2d 74 69 6d 65 72 |al-histo|ry-timer|
|000021e0| 20 6e 69 6c 20 63 75 72 | 72 65 6e 74 2d 6c 6f 61 | nil cur|rent-loa|
|000021f0| 64 2d 6c 69 73 74 5d 20 | 32 29 0a 28 63 75 73 74 |d-list] |2).(cust|
|00002200| 6f 6d 2d 64 65 63 6c 61 | 72 65 2d 76 61 72 69 61 |om-decla|re-varia|
|00002210| 62 6c 65 20 27 75 72 6c | 2d 70 61 73 73 77 64 2d |ble 'url|-passwd-|
|00002220| 65 6e 74 72 79 2d 66 75 | 6e 63 20 27 6e 69 6c 20 |entry-fu|nc 'nil |
|00002230| 22 2a 54 68 69 73 20 69 | 73 20 61 20 73 79 6d 62 |"*This i|s a symb|
|00002240| 6f 6c 20 69 6e 64 69 63 | 61 74 69 6e 67 20 77 68 |ol indic|ating wh|
|00002250| 69 63 68 20 66 75 6e 63 | 74 69 6f 6e 20 74 6f 20 |ich func|tion to |
|00002260| 63 61 6c 6c 20 74 6f 20 | 72 65 61 64 20 69 6e 20 |call to |read in |
|00002270| 61 5c 6e 70 61 73 73 77 | 6f 72 64 2e 20 20 49 74 |a\npassw|ord.  It|
|00002280| 20 77 69 6c 6c 20 62 65 | 20 73 65 74 20 75 70 20 | will be| set up |
|00002290| 64 65 70 65 6e 64 69 6e | 67 20 6f 6e 20 77 68 65 |dependin|g on whe|
|000022a0| 74 68 65 72 20 79 6f 75 | 20 61 72 65 20 72 75 6e |ther you| are run|
|000022b0| 6e 69 6e 67 20 45 46 53 | 5c 6e 6f 72 20 61 6e 67 |ning EFS|\nor ang|
|000022c0| 65 2d 66 74 70 20 61 74 | 20 73 74 61 72 74 75 70 |e-ftp at| startup|
|000022d0| 20 69 66 20 69 74 20 69 | 73 20 6e 69 6c 2e 20 20 | if it i|s nil.  |
|000022e0| 54 68 69 73 20 66 75 6e | 63 74 69 6f 6e 20 73 68 |This fun|ction sh|
|000022f0| 6f 75 6c 64 20 61 63 63 | 65 70 74 20 74 68 65 5c |ould acc|ept the\|
|00002300| 6e 70 72 6f 6d 70 74 20 | 73 74 72 69 6e 67 20 61 |nprompt |string a|
|00002310| 73 20 69 74 73 20 66 69 | 72 73 74 20 61 72 67 75 |s its fi|rst argu|
|00002320| 6d 65 6e 74 2c 20 61 6e | 64 20 74 68 65 20 64 65 |ment, an|d the de|
|00002330| 66 61 75 6c 74 20 76 61 | 6c 75 65 20 61 73 20 69 |fault va|lue as i|
|00002340| 74 73 5c 6e 73 65 63 6f | 6e 64 20 61 72 67 75 6d |ts\nseco|nd argum|
|00002350| 65 6e 74 2e 22 20 3a 74 | 79 70 65 20 27 28 63 68 |ent." :t|ype '(ch|
|00002360| 6f 69 63 65 20 28 63 6f | 6e 73 74 20 3a 74 61 67 |oice (co|nst :tag|
|00002370| 20 22 47 75 65 73 73 22 | 20 3a 76 61 6c 75 65 20 | "Guess"| :value |
|00002380| 6e 69 6c 29 20 28 63 6f | 6e 73 74 20 3a 74 61 67 |nil) (co|nst :tag|
|00002390| 20 22 55 73 65 20 41 6e | 67 65 2d 46 54 50 22 20 | "Use An|ge-FTP" |
|000023a0| 3a 76 61 6c 75 65 20 61 | 6e 67 65 2d 66 74 70 2d |:value a|nge-ftp-|
|000023b0| 72 65 61 64 2d 70 61 73 | 73 77 64 29 20 28 63 6f |read-pas|swd) (co|
|000023c0| 6e 73 74 20 3a 74 61 67 | 20 22 55 73 65 20 45 46 |nst :tag| "Use EF|
|000023d0| 53 22 20 3a 76 61 6c 75 | 65 20 65 66 73 2d 72 65 |S" :valu|e efs-re|
|000023e0| 61 64 2d 70 61 73 73 77 | 64 29 20 28 63 6f 6e 73 |ad-passw|d) (cons|
|000023f0| 74 20 3a 74 61 67 20 22 | 55 73 65 20 50 61 73 73 |t :tag "|Use Pass|
|00002400| 77 6f 72 64 20 50 61 63 | 6b 61 67 65 22 20 3a 76 |word Pac|kage" :v|
|00002410| 61 6c 75 65 20 72 65 61 | 64 2d 70 61 73 73 77 64 |alue rea|d-passwd|
|00002420| 29 20 28 66 75 6e 63 74 | 69 6f 6e 20 3a 74 61 67 |) (funct|ion :tag|
|00002430| 20 22 4f 74 68 65 72 22 | 29 29 20 3a 67 72 6f 75 | "Other"|)) :grou|
|00002440| 70 20 27 75 72 6c 2d 68 | 61 69 72 79 29 0a 28 63 |p 'url-h|airy).(c|
|00002450| 75 73 74 6f 6d 2d 64 65 | 63 6c 61 72 65 2d 76 61 |ustom-de|clare-va|
|00002460| 72 69 61 62 6c 65 20 27 | 75 72 6c 2d 67 6f 70 68 |riable '|url-goph|
|00002470| 65 72 2d 6c 61 62 65 6c | 73 20 27 27 28 28 22 30 |er-label|s ''(("0|
|00002480| 22 20 2e 20 22 28 54 58 | 54 29 22 29 20 28 22 31 |" . "(TX|T)") ("1|
|00002490| 22 20 2e 20 22 28 44 49 | 52 29 22 29 20 28 22 32 |" . "(DI|R)") ("2|
|000024a0| 22 20 2e 20 22 28 43 53 | 4f 29 22 29 20 28 22 33 |" . "(CS|O)") ("3|
|000024b0| 22 20 2e 20 22 28 45 52 | 52 29 22 29 20 28 22 34 |" . "(ER|R)") ("4|
|000024c0| 22 20 2e 20 22 28 4d 41 | 43 29 22 29 20 28 22 35 |" . "(MA|C)") ("5|
|000024d0| 22 20 2e 20 22 28 50 43 | 42 29 22 29 20 28 22 36 |" . "(PC|B)") ("6|
|000024e0| 22 20 2e 20 22 28 55 55 | 58 29 22 29 20 28 22 37 |" . "(UU|X)") ("7|
|000024f0| 22 20 2e 20 22 28 3f 3f | 3f 29 22 29 20 28 22 38 |" . "(??|?)") ("8|
|00002500| 22 20 2e 20 22 28 54 45 | 4c 29 22 29 20 28 22 54 |" . "(TE|L)") ("T|
|00002510| 22 20 2e 20 22 28 54 4e | 33 29 22 29 20 28 22 39 |" . "(TN|3)") ("9|
|00002520| 22 20 2e 20 22 28 42 49 | 4e 29 22 29 20 28 22 67 |" . "(BI|N)") ("g|
|00002530| 22 20 2e 20 22 28 47 49 | 46 29 22 29 20 28 22 49 |" . "(GI|F)") ("I|
|00002540| 22 20 2e 20 22 28 49 4d | 47 29 22 29 20 28 22 68 |" . "(IM|G)") ("h|
|00002550| 22 20 2e 20 22 28 57 57 | 57 29 22 29 20 28 22 73 |" . "(WW|W)") ("s|
|00002560| 22 20 2e 20 22 28 53 4e | 44 29 22 29 29 20 22 2a |" . "(SN|D)")) "*|
|00002570| 41 6e 20 61 73 73 6f 63 | 20 6c 69 73 74 20 6f 66 |An assoc| list of|
|00002580| 20 67 6f 70 68 65 72 20 | 74 79 70 65 73 20 61 6e | gopher |types an|
|00002590| 64 20 68 6f 77 20 74 6f | 20 64 65 73 63 72 69 62 |d how to| describ|
|000025a0| 65 20 74 68 65 6d 20 69 | 6e 20 74 68 65 20 67 6f |e them i|n the go|
|000025b0| 70 68 65 72 5c 6e 6d 65 | 6e 75 73 2e 20 20 54 68 |pher\nme|nus.  Th|
|000025c0| 65 73 65 20 63 61 6e 20 | 62 65 20 61 6e 79 20 73 |ese can |be any s|
|000025d0| 74 72 69 6e 67 2c 20 62 | 75 74 20 48 54 4d 4c 2f |tring, b|ut HTML/|
|000025e0| 48 54 4d 4c 2b 20 65 6e | 74 69 74 69 65 73 20 73 |HTML+ en|tities s|
|000025f0| 68 6f 75 6c 64 20 62 65 | 5c 6e 75 73 65 64 20 77 |hould be|\nused w|
|00002600| 68 65 6e 20 6e 65 63 65 | 73 73 61 72 79 2c 20 6f |hen nece|ssary, o|
|00002610| 72 20 69 74 20 63 6f 75 | 6c 64 20 64 69 73 72 75 |r it cou|ld disru|
|00002620| 70 74 20 66 6f 72 6d 61 | 74 74 69 6e 67 20 6f 66 |pt forma|tting of|
|00002630| 20 74 68 65 20 64 6f 63 | 75 6d 65 6e 74 5c 6e 6c | the doc|ument\nl|
|00002640| 61 74 65 72 20 6f 6e 2e | 20 20 49 74 20 69 73 20 |ater on.|  It is |
|00002650| 61 6c 73 6f 20 61 20 67 | 6f 6f 64 20 69 64 65 61 |also a g|ood idea|
|00002660| 20 74 6f 20 6d 61 6b 65 | 20 73 75 72 65 20 61 6c | to make| sure al|
|00002670| 6c 20 74 68 65 20 73 74 | 72 69 6e 67 73 20 61 72 |l the st|rings ar|
|00002680| 65 20 74 68 65 5c 6e 73 | 61 6d 65 20 6c 65 6e 67 |e the\ns|ame leng|
|00002690| 74 68 20 61 66 74 65 72 | 20 65 6e 74 69 74 79 20 |th after| entity |
|000026a0| 72 65 66 65 72 65 6e 63 | 65 73 20 61 72 65 20 72 |referenc|es are r|
|000026b0| 65 6d 6f 76 65 64 2c 20 | 6f 6e 20 61 20 73 74 72 |emoved, |on a str|
|000026c0| 69 63 74 6c 79 5c 6e 73 | 74 79 6c 69 73 74 69 63 |ictly\ns|tylistic|
|000026d0| 20 6c 65 76 65 6c 2e 22 | 20 3a 74 79 70 65 20 27 | level."| :type '|
|000026e0| 28 72 65 70 65 61 74 20 | 28 63 6f 6e 73 20 28 73 |(repeat |(cons (s|
|000026f0| 74 72 69 6e 67 20 3a 74 | 61 67 20 22 54 79 70 65 |tring :t|ag "Type|
|00002700| 22 29 20 28 73 74 72 69 | 6e 67 20 3a 74 61 67 20 |") (stri|ng :tag |
|00002710| 22 44 65 73 63 72 69 70 | 74 69 6f 6e 22 29 29 29 |"Descrip|tion")))|
|00002720| 20 3a 67 72 6f 75 70 20 | 27 75 72 6c 2d 68 61 69 | :group |'url-hai|
|00002730| 72 79 29 0a 28 63 75 73 | 74 6f 6d 2d 64 65 63 6c |ry).(cus|tom-decl|
|00002740| 61 72 65 2d 76 61 72 69 | 61 62 6c 65 20 27 75 72 |are-vari|able 'ur|
|00002750| 6c 2d 67 6f 70 68 65 72 | 2d 69 63 6f 6e 73 20 27 |l-gopher|-icons '|
|00002760| 27 28 28 22 30 22 20 2e | 20 22 26 74 65 78 74 2e |'(("0" .| "&text.|
|00002770| 64 6f 63 75 6d 65 6e 74 | 3b 22 29 20 28 22 31 22 |document|;") ("1"|
|00002780| 20 2e 20 22 26 66 6f 6c | 64 65 72 3b 22 29 20 28 | . "&fol|der;") (|
|00002790| 22 32 22 20 2e 20 22 26 | 69 6e 64 65 78 3b 22 29 |"2" . "&|index;")|
|000027a0| 20 28 22 33 22 20 2e 20 | 22 26 73 74 6f 70 3b 22 | ("3" . |"&stop;"|
|000027b0| 29 20 28 22 34 22 20 2e | 20 22 26 62 69 6e 68 65 |) ("4" .| "&binhe|
|000027c0| 78 2e 64 6f 63 75 6d 65 | 6e 74 3b 22 29 20 28 22 |x.docume|nt;") ("|
|000027d0| 35 22 20 2e 20 22 26 62 | 69 6e 68 65 78 2e 64 6f |5" . "&b|inhex.do|
|000027e0| 63 75 6d 65 6e 74 3b 22 | 29 20 28 22 36 22 20 2e |cument;"|) ("6" .|
|000027f0| 20 22 26 75 75 65 6e 63 | 6f 64 65 64 2e 64 6f 63 | "&uuenc|oded.doc|
|00002800| 75 6d 65 6e 74 3b 22 29 | 20 28 22 37 22 20 2e 20 |ument;")| ("7" . |
|00002810| 22 26 69 6e 64 65 78 3b | 22 29 20 28 22 38 22 20 |"&index;|") ("8" |
|00002820| 2e 20 22 26 74 65 6c 6e | 65 74 3b 22 29 20 28 22 |. "&teln|et;") ("|
|00002830| 54 22 20 2e 20 22 26 74 | 6e 33 32 37 30 3b 22 29 |T" . "&t|n3270;")|
|00002840| 20 28 22 39 22 20 2e 20 | 22 26 62 69 6e 61 72 79 | ("9" . |"&binary|
|00002850| 2e 64 6f 63 75 6d 65 6e | 74 3b 22 29 20 28 22 67 |.documen|t;") ("g|
|00002860| 22 20 2e 20 22 26 69 6d | 61 67 65 3b 22 29 20 28 |" . "&im|age;") (|
|00002870| 22 49 22 20 2e 20 22 26 | 69 6d 61 67 65 3b 22 29 |"I" . "&|image;")|
|00002880| 20 28 22 73 22 20 2e 20 | 22 26 61 75 64 69 6f 3b | ("s" . |"&audio;|
|00002890| 22 29 29 20 22 2a 41 6e | 20 61 73 73 6f 63 20 6c |")) "*An| assoc l|
|000028a0| 69 73 74 20 6f 66 20 67 | 6f 70 68 65 72 20 74 79 |ist of g|opher ty|
|000028b0| 70 65 73 20 61 6e 64 20 | 74 68 65 20 67 72 61 70 |pes and |the grap|
|000028c0| 68 69 63 20 65 6e 74 69 | 74 79 20 72 65 66 65 72 |hic enti|ty refer|
|000028d0| 65 6e 63 65 73 20 74 6f | 5c 6e 73 68 6f 77 20 77 |ences to|\nshow w|
|000028e0| 68 65 6e 20 70 6f 73 73 | 69 62 6c 65 2e 22 20 3a |hen poss|ible." :|
|000028f0| 74 79 70 65 20 27 28 72 | 65 70 65 61 74 20 28 63 |type '(r|epeat (c|
|00002900| 6f 6e 73 20 28 73 74 72 | 69 6e 67 20 3a 74 61 67 |ons (str|ing :tag|
|00002910| 20 22 54 79 70 65 22 29 | 20 28 73 74 72 69 6e 67 | "Type")| (string|
|00002920| 20 3a 74 61 67 20 22 49 | 63 6f 6e 22 29 29 29 20 | :tag "I|con"))) |
|00002930| 3a 67 72 6f 75 70 20 27 | 75 72 6c 2d 68 61 69 72 |:group '|url-hair|
|00002940| 79 29 0a 28 63 75 73 74 | 6f 6d 2d 64 65 63 6c 61 |y).(cust|om-decla|
|00002950| 72 65 2d 76 61 72 69 61 | 62 6c 65 20 27 75 72 6c |re-varia|ble 'url|
|00002960| 2d 73 74 61 6e 64 61 6c | 6f 6e 65 2d 6d 6f 64 65 |-standal|one-mode|
|00002970| 20 27 6e 69 6c 20 22 2a | 52 65 6c 79 20 73 6f 6c | 'nil "*|Rely sol|
|00002980| 65 6c 79 20 6f 6e 20 74 | 68 65 20 63 61 63 68 65 |ely on t|he cache|
|00002990| 3f 22 20 3a 74 79 70 65 | 20 27 62 6f 6f 6c 65 61 |?" :type| 'boolea|
|000029a0| 6e 20 3a 67 72 6f 75 70 | 20 27 75 72 6c 2d 63 61 |n :group| 'url-ca|
|000029b0| 63 68 65 29 0a 28 63 75 | 73 74 6f 6d 2d 64 65 63 |che).(cu|stom-dec|
|000029c0| 6c 61 72 65 2d 76 61 72 | 69 61 62 6c 65 20 27 75 |lare-var|iable 'u|
|000029d0| 72 6c 2d 6d 75 6c 74 69 | 70 6c 65 2d 70 20 27 74 |rl-multi|ple-p 't|
|000029e0| 20 22 2a 49 66 20 6e 6f | 6e 2d 6e 69 6c 2c 20 6d | "*If no|n-nil, m|
|000029f0| 75 6c 74 69 70 6c 65 20 | 71 75 65 72 69 65 73 20 |ultiple |queries |
|00002a00| 61 72 65 20 70 6f 73 73 | 69 62 6c 65 20 74 68 72 |are poss|ible thr|
|00002a10| 6f 75 67 68 20 60 20 2a | 55 52 4c 2d 3c 69 3e 2a |ough ` *|URL-<i>*|
|00002a20| 27 20 62 75 66 66 65 72 | 73 22 20 3a 74 79 70 65 |' buffer|s" :type|
|00002a30| 20 27 62 6f 6f 6c 65 61 | 6e 20 3a 67 72 6f 75 70 | 'boolea|n :group|
|00002a40| 20 27 75 72 6c 2d 68 61 | 69 72 79 29 0a 23 40 35 | 'url-ha|iry).#@5|
|00002a50| 33 20 20 54 68 65 20 64 | 65 66 61 75 6c 74 20 62 |3  The d|efault b|
|00002a60| 75 66 66 65 72 20 74 6f | 20 64 6f 20 61 6c 6c 20 |uffer to| do all |
|00002a70| 6f 66 20 74 68 65 20 70 | 72 6f 63 65 73 73 69 6e |of the p|rocessin|
|00002a80| 67 20 69 6e 2e 1f 0a 28 | 64 65 66 76 61 72 20 75 |g in...(|defvar u|
|00002a90| 72 6c 2d 64 65 66 61 75 | 6c 74 2d 77 6f 72 6b 69 |rl-defau|lt-worki|
|00002aa0| 6e 67 2d 62 75 66 66 65 | 72 20 22 20 2a 55 52 4c |ng-buffe|r " *URL|
|00002ab0| 2a 22 20 28 23 24 20 2e | 20 31 30 38 33 34 29 29 |*" (#$ .| 10834))|
|00002ac0| 0a 23 40 31 37 36 20 54 | 68 65 20 62 75 66 66 65 |.#@176 T|he buffe|
|00002ad0| 72 20 74 6f 20 64 6f 20 | 61 6c 6c 20 6f 66 20 74 |r to do |all of t|
|00002ae0| 68 65 20 70 72 6f 63 65 | 73 73 69 6e 67 20 69 6e |he proce|ssing in|
|00002af0| 2e 0a 49 74 20 64 65 66 | 61 75 6c 74 73 20 74 6f |..It def|aults to|
|00002b00| 20 60 75 72 6c 2d 64 65 | 66 61 75 6c 74 2d 77 6f | `url-de|fault-wo|
|00002b10| 72 6b 69 6e 67 2d 62 75 | 66 66 65 72 27 20 61 6e |rking-bu|ffer' an|
|00002b20| 64 20 69 73 20 62 6f 75 | 6e 64 20 74 6f 20 2a 55 |d is bou|nd to *U|
|00002b30| 52 4c 2d 3c 69 3e 2a 0a | 62 75 66 66 65 72 73 20 |RL-<i>*.|buffers |
|00002b40| 77 68 65 6e 20 75 73 65 | 64 20 66 6f 72 20 6d 75 |when use|d for mu|
|00002b50| 6c 74 69 70 6c 65 20 72 | 65 71 75 65 73 74 73 2c |ltiple r|equests,|
|00002b60| 20 63 66 2e 20 60 75 72 | 6c 2d 6d 75 6c 74 69 70 | cf. `ur|l-multip|
|00002b70| 6c 65 2d 70 27 1f 0a 28 | 64 65 66 76 61 72 20 75 |le-p'..(|defvar u|
|00002b80| 72 6c 2d 77 6f 72 6b 69 | 6e 67 2d 62 75 66 66 65 |rl-worki|ng-buffe|
|00002b90| 72 20 75 72 6c 2d 64 65 | 66 61 75 6c 74 2d 77 6f |r url-de|fault-wo|
|00002ba0| 72 6b 69 6e 67 2d 62 75 | 66 66 65 72 20 28 23 24 |rking-bu|ffer (#$|
|00002bb0| 20 2e 20 31 30 39 35 31 | 29 29 0a 23 40 32 33 20 | . 10951|)).#@23 |
|00002bc0| 52 65 66 65 72 65 72 20 | 6f 66 20 74 68 69 73 20 |Referer |of this |
|00002bd0| 70 61 67 65 2e 1f 0a 28 | 64 65 66 76 61 72 20 75 |page...(|defvar u|
|00002be0| 72 6c 2d 63 75 72 72 65 | 6e 74 2d 72 65 66 65 72 |rl-curre|nt-refer|
|00002bf0| 65 72 20 6e 69 6c 20 28 | 23 24 20 2e 20 31 31 32 |er nil (|#$ . 112|
|00002c00| 30 30 29 29 0a 23 40 32 | 35 20 43 75 72 72 65 6e |00)).#@2|5 Curren|
|00002c10| 74 20 63 6f 6e 74 65 6e | 74 20 6c 65 6e 67 74 68 |t conten|t length|
|00002c20| 2e 1f 0a 28 64 65 66 76 | 61 72 20 75 72 6c 2d 63 |...(defv|ar url-c|
|00002c30| 75 72 72 65 6e 74 2d 63 | 6f 6e 74 65 6e 74 2d 6c |urrent-c|ontent-l|
|00002c40| 65 6e 67 74 68 20 6e 69 | 6c 20 28 23 24 20 2e 20 |ength ni|l (#$ . |
|00002c50| 31 31 32 37 34 29 29 0a | 23 40 34 35 20 49 73 20 |11274)).|#@45 Is |
|00002c60| 74 68 65 20 63 75 72 72 | 65 6e 74 20 64 6f 63 75 |the curr|ent docu|
|00002c70| 6d 65 6e 74 20 61 20 73 | 65 61 72 63 68 61 62 6c |ment a s|earchabl|
|00002c80| 65 20 69 6e 64 65 78 3f | 1f 0a 28 64 65 66 76 61 |e index?|..(defva|
|00002c90| 72 20 75 72 6c 2d 63 75 | 72 72 65 6e 74 2d 69 73 |r url-cu|rrent-is|
|00002ca0| 69 6e 64 65 78 20 6e 69 | 6c 20 28 23 24 20 2e 20 |index ni|l (#$ . |
|00002cb0| 31 31 33 35 37 29 29 0a | 23 40 33 36 20 4d 49 4d |11357)).|#@36 MIM|
|00002cc0| 45 20 65 6e 63 6f 64 69 | 6e 67 20 6f 66 20 63 75 |E encodi|ng of cu|
|00002cd0| 72 72 65 6e 74 20 64 6f | 63 75 6d 65 6e 74 2e 1f |rrent do|cument..|
|00002ce0| 0a 28 64 65 66 76 61 72 | 20 75 72 6c 2d 63 75 72 |.(defvar| url-cur|
|00002cf0| 72 65 6e 74 2d 6d 69 6d | 65 2d 65 6e 63 6f 64 69 |rent-mim|e-encodi|
|00002d00| 6e 67 20 6e 69 6c 20 28 | 23 24 20 2e 20 31 31 34 |ng nil (|#$ . 114|
|00002d10| 35 33 29 29 0a 23 40 32 | 37 20 41 6e 20 61 6c 69 |53)).#@2|7 An ali|
|00002d20| 73 74 20 6f 66 20 4d 49 | 4d 45 20 68 65 61 64 65 |st of MI|ME heade|
|00002d30| 72 73 2e 1f 0a 28 64 65 | 66 76 61 72 20 75 72 6c |rs...(de|fvar url|
|00002d40| 2d 63 75 72 72 65 6e 74 | 2d 6d 69 6d 65 2d 68 65 |-current|-mime-he|
|00002d50| 61 64 65 72 73 20 6e 69 | 6c 20 28 23 24 20 2e 20 |aders ni|l (#$ . |
|00002d60| 31 31 35 34 36 29 29 0a | 23 40 33 32 20 4d 49 4d |11546)).|#@32 MIM|
|00002d70| 45 20 74 79 70 65 20 6f | 66 20 63 75 72 72 65 6e |E type o|f curren|
|00002d80| 74 20 64 6f 63 75 6d 65 | 6e 74 2e 1f 0a 28 64 65 |t docume|nt...(de|
|00002d90| 66 76 61 72 20 75 72 6c | 2d 63 75 72 72 65 6e 74 |fvar url|-current|
|00002da0| 2d 6d 69 6d 65 2d 74 79 | 70 65 20 6e 69 6c 20 28 |-mime-ty|pe nil (|
|00002db0| 23 24 20 2e 20 31 31 36 | 32 39 29 29 0a 23 40 33 |#$ . 116|29)).#@3|
|00002dc0| 35 20 48 6f 77 20 74 6f | 20 76 69 65 77 20 74 68 |5 How to| view th|
|00002dd0| 65 20 63 75 72 72 65 6e | 74 20 4d 49 4d 45 20 64 |e curren|t MIME d|
|00002de0| 6f 63 2e 1f 0a 28 64 65 | 66 76 61 72 20 75 72 6c |oc...(de|fvar url|
|00002df0| 2d 63 75 72 72 65 6e 74 | 2d 6d 69 6d 65 2d 76 69 |-current|-mime-vi|
|00002e00| 65 77 65 72 20 6e 69 6c | 20 28 23 24 20 2e 20 31 |ewer nil| (#$ . 1|
|00002e10| 31 37 31 34 29 29 0a 23 | 40 33 37 20 48 6f 77 20 |1714)).#|@37 How |
|00002e20| 6d 61 6e 79 20 74 69 6d | 65 73 20 70 61 73 73 77 |many tim|es passw|
|00002e30| 6f 72 64 20 68 61 73 20 | 66 61 69 6c 65 64 2e 1f |ord has |failed..|
|00002e40| 0a 28 64 65 66 76 61 72 | 20 75 72 6c 2d 63 75 72 |.(defvar| url-cur|
|00002e50| 72 65 6e 74 2d 70 61 73 | 73 77 64 2d 63 6f 75 6e |rent-pas|swd-coun|
|00002e60| 74 20 30 20 28 23 24 20 | 2e 20 31 31 38 30 34 29 |t 0 (#$ |. 11804)|
|00002e70| 29 0a 23 40 37 32 20 41 | 20 73 74 72 69 6e 67 20 |).#@72 A| string |
|00002e80| 63 6f 6e 74 61 69 6e 69 | 6e 67 20 63 68 61 72 61 |containi|ng chara|
|00002e90| 63 74 65 72 20 72 65 70 | 72 65 73 65 6e 74 61 74 |cter rep|resentat|
|00002ea0| 69 6f 6e 73 20 6f 66 20 | 61 6c 6c 20 74 68 65 20 |ions of |all the |
|00002eb0| 67 6f 70 68 65 72 20 74 | 79 70 65 73 2e 1f 0a 28 |gopher t|ypes...(|
|00002ec0| 64 65 66 76 61 72 20 75 | 72 6c 2d 67 6f 70 68 65 |defvar u|rl-gophe|
|00002ed0| 72 2d 74 79 70 65 73 20 | 22 30 31 32 33 34 35 36 |r-types |"0123456|
|00002ee0| 37 38 39 2b 67 49 54 68 | 77 73 3a 3b 3c 22 20 28 |789+gITh|ws:;<" (|
|00002ef0| 23 24 20 2e 20 31 31 38 | 39 35 29 29 0a 23 40 35 |#$ . 118|95)).#@5|
|00002f00| 33 20 43 68 61 72 61 63 | 74 65 72 73 20 61 6c 6c |3 Charac|ters all|
|00002f10| 6f 77 61 62 6c 65 20 69 | 6e 20 61 20 4d 49 4d 45 |owable i|n a MIME|
|00002f20| 20 6d 75 6c 74 69 70 61 | 72 74 20 73 65 70 61 72 | multipa|rt separ|
|00002f30| 61 74 6f 72 2e 1f 0a 28 | 64 65 66 76 61 72 20 75 |ator...(|defvar u|
|00002f40| 72 6c 2d 6d 69 6d 65 2d | 73 65 70 61 72 61 74 6f |rl-mime-|separato|
|00002f50| 72 2d 63 68 61 72 73 20 | 28 62 79 74 65 2d 63 6f |r-chars |(byte-co|
|00002f60| 64 65 20 22 c0 c1 c2 c3 | c4 51 5c 22 87 22 20 5b |de "....|.Q\"." [|
|00002f70| 6d 61 70 63 61 72 20 69 | 64 65 6e 74 69 74 79 20 |mapcar i|dentity |
|00002f80| 22 41 42 43 44 45 46 47 | 48 49 4a 4b 4c 4d 4e 4f |"ABCDEFG|HIJKLMNO|
|00002f90| 50 51 52 53 54 55 56 57 | 58 59 5a 22 20 22 61 62 |PQRSTUVW|XYZ" "ab|
|00002fa0| 63 64 65 66 67 68 69 6a | 6b 6c 6d 6e 6f 70 71 72 |cdefghij|klmnopqr|
|00002fb0| 73 74 75 76 77 78 79 7a | 22 20 22 30 31 32 33 34 |stuvwxyz|" "01234|
|00002fc0| 35 36 37 38 39 27 28 29 | 2b 5f 2c 2d 2e 2f 3d 3f |56789'()|+_,-./=?|
|00002fd0| 22 5d 20 35 29 20 28 23 | 24 20 2e 20 31 32 30 33 |"] 5) (#|$ . 1203|
|00002fe0| 34 29 29 0a 28 63 75 73 | 74 6f 6d 2d 64 65 63 6c |4)).(cus|tom-decl|
|00002ff0| 61 72 65 2d 76 61 72 69 | 61 62 6c 65 20 27 75 72 |are-vari|able 'ur|
|00003000| 6c 2d 62 61 64 2d 70 6f | 72 74 2d 6c 69 73 74 20 |l-bad-po|rt-list |
|00003010| 27 27 28 22 32 35 22 20 | 22 31 31 39 22 20 22 31 |''("25" |"119" "1|
|00003020| 39 22 29 20 22 2a 4c 69 | 73 74 20 6f 66 20 70 6f |9") "*Li|st of po|
|00003030| 72 74 73 20 74 6f 20 77 | 61 72 6e 20 74 68 65 20 |rts to w|arn the |
|00003040| 75 73 65 72 20 61 62 6f | 75 74 20 63 6f 6e 6e 65 |user abo|ut conne|
|00003050| 63 74 69 6e 67 20 74 6f | 2e 20 20 44 65 66 61 75 |cting to|.  Defau|
|00003060| 6c 74 73 20 74 6f 20 6a | 75 73 74 5c 6e 74 68 65 |lts to j|ust\nthe|
|00003070| 20 6d 61 69 6c 2c 20 63 | 68 61 72 67 65 6e 2c 20 | mail, c|hargen, |
|00003080| 61 6e 64 20 4e 4e 54 50 | 20 70 6f 72 74 73 20 73 |and NNTP| ports s|
|00003090| 6f 20 79 6f 75 20 63 61 | 6e 6e 6f 74 20 62 65 20 |o you ca|nnot be |
|000030a0| 74 72 69 63 6b 65 64 20 | 69 6e 74 6f 20 73 65 6e |tricked |into sen|
|000030b0| 64 69 6e 67 5c 6e 66 61 | 6b 65 20 6d 61 69 6c 20 |ding\nfa|ke mail |
|000030c0| 6f 72 20 66 6f 72 67 69 | 6e 67 20 6d 65 73 73 61 |or forgi|ng messa|
|000030d0| 67 65 73 20 62 79 20 61 | 20 6d 61 6c 69 63 69 6f |ges by a| malicio|
|000030e0| 75 73 20 48 54 4d 4c 20 | 64 6f 63 75 6d 65 6e 74 |us HTML |document|
|000030f0| 2e 22 20 3a 74 79 70 65 | 20 27 28 72 65 70 65 61 |." :type| '(repea|
|00003100| 74 20 28 73 74 72 69 6e | 67 20 3a 74 61 67 20 22 |t (strin|g :tag "|
|00003110| 50 6f 72 74 22 29 29 20 | 3a 67 72 6f 75 70 20 27 |Port")) |:group '|
|00003120| 75 72 6c 2d 68 61 69 72 | 79 29 0a 28 63 75 73 74 |url-hair|y).(cust|
|00003130| 6f 6d 2d 64 65 63 6c 61 | 72 65 2d 76 61 72 69 61 |om-decla|re-varia|
|00003140| 62 6c 65 20 27 75 72 6c | 2d 62 65 2d 61 6e 61 6c |ble 'url|-be-anal|
|00003150| 2d 61 62 6f 75 74 2d 66 | 69 6c 65 2d 61 74 74 72 |-about-f|ile-attr|
|00003160| 69 62 75 74 65 73 20 27 | 6e 69 6c 20 22 2a 57 68 |ibutes '|nil "*Wh|
|00003170| 65 74 68 65 72 20 74 6f | 20 75 73 65 20 48 54 54 |ether to| use HTT|
|00003180| 50 2f 31 2e 30 20 74 6f | 20 66 69 67 75 72 65 20 |P/1.0 to| figure |
|00003190| 6f 75 74 20 66 69 6c 65 | 20 61 74 74 72 69 62 75 |out file| attribu|
|000031a0| 74 65 73 5c 6e 6f 72 20 | 6a 75 73 74 20 67 75 65 |tes\nor |just gue|
|000031b0| 73 73 20 62 61 73 65 64 | 20 6f 6e 20 66 69 6c 65 |ss based| on file|
|000031c0| 20 65 78 74 65 6e 73 69 | 6f 6e 2c 20 65 74 63 2e | extensi|on, etc.|
|000031d0| 22 20 3a 74 79 70 65 20 | 27 62 6f 6f 6c 65 61 6e |" :type |'boolean|
|000031e0| 20 3a 67 72 6f 75 70 20 | 27 75 72 6c 2d 6d 69 6d | :group |'url-mim|
|000031f0| 65 29 0a 28 63 75 73 74 | 6f 6d 2d 64 65 63 6c 61 |e).(cust|om-decla|
|00003200| 72 65 2d 76 61 72 69 61 | 62 6c 65 20 27 75 72 6c |re-varia|ble 'url|
|00003210| 2d 62 65 2d 61 73 79 6e | 63 68 72 6f 6e 6f 75 73 |-be-asyn|chronous|
|00003220| 20 27 6e 69 6c 20 22 2a | 43 6f 6e 74 72 6f 6c 73 | 'nil "*|Controls|
|00003230| 20 77 68 65 74 68 65 72 | 20 64 6f 63 75 6d 65 6e | whether| documen|
|00003240| 74 20 72 65 74 72 69 65 | 76 61 6c 73 20 6f 76 65 |t retrie|vals ove|
|00003250| 72 20 48 54 54 50 20 73 | 68 6f 75 6c 64 20 62 65 |r HTTP s|hould be|
|00003260| 20 64 6f 6e 65 20 69 6e | 5c 6e 74 68 65 20 62 61 | done in|\nthe ba|
|00003270| 63 6b 67 72 6f 75 6e 64 | 2e 20 20 54 68 69 73 20 |ckground|.  This |
|00003280| 61 6c 6c 6f 77 73 20 79 | 6f 75 20 74 6f 20 6b 65 |allows y|ou to ke|
|00003290| 65 70 20 77 6f 72 6b 69 | 6e 67 20 69 6e 20 6f 74 |ep worki|ng in ot|
|000032a0| 68 65 72 20 77 69 6e 64 | 6f 77 73 5c 6e 77 68 69 |her wind|ows\nwhi|
|000032b0| 6c 65 20 6c 61 72 67 65 | 20 64 6f 77 6e 6c 6f 61 |le large| downloa|
|000032c0| 64 73 20 6f 63 63 75 72 | 2e 22 20 3a 74 79 70 65 |ds occur|." :type|
|000032d0| 20 27 62 6f 6f 6c 65 61 | 6e 20 3a 67 72 6f 75 70 | 'boolea|n :group|
|000032e0| 20 27 75 72 6c 29 0a 28 | 6d 61 6b 65 2d 76 61 72 | 'url).(|make-var|
|000032f0| 69 61 62 6c 65 2d 62 75 | 66 66 65 72 2d 6c 6f 63 |iable-bu|ffer-loc|
|00003300| 61 6c 20 27 75 72 6c 2d | 62 65 2d 61 73 79 6e 63 |al 'url-|be-async|
|00003310| 68 72 6f 6e 6f 75 73 29 | 0a 23 40 34 31 20 41 6e |hronous)|.#@41 An|
|00003320| 79 20 64 61 74 61 20 74 | 6f 20 73 65 6e 64 20 77 |y data t|o send w|
|00003330| 69 74 68 20 74 68 65 20 | 6e 65 78 74 20 72 65 71 |ith the |next req|
|00003340| 75 65 73 74 2e 1f 0a 28 | 64 65 66 76 61 72 20 75 |uest...(|defvar u|
|00003350| 72 6c 2d 72 65 71 75 65 | 73 74 2d 64 61 74 61 20 |rl-reque|st-data |
|00003360| 6e 69 6c 20 28 23 24 20 | 2e 20 31 33 30 38 36 29 |nil (#$ |. 13086)|
|00003370| 29 0a 23 40 31 30 32 20 | 41 20 6c 69 73 74 20 6f |).#@102 |A list o|
|00003380| 66 20 65 78 74 72 61 20 | 68 65 61 64 65 72 73 20 |f extra |headers |
|00003390| 74 6f 20 73 65 6e 64 20 | 77 69 74 68 20 74 68 65 |to send |with the|
|000033a0| 20 6e 65 78 74 20 72 65 | 71 75 65 73 74 2e 20 20 | next re|quest.  |
|000033b0| 53 68 6f 75 6c 64 20 62 | 65 0a 61 6e 20 61 73 73 |Should b|e.an ass|
|000033c0| 6f 63 20 6c 69 73 74 20 | 6f 66 20 68 65 61 64 65 |oc list |of heade|
|000033d0| 72 73 2f 63 6f 6e 74 65 | 6e 74 73 2e 1f 0a 28 64 |rs/conte|nts...(d|
|000033e0| 65 66 76 61 72 20 75 72 | 6c 2d 72 65 71 75 65 73 |efvar ur|l-reques|
|000033f0| 74 2d 65 78 74 72 61 2d | 68 65 61 64 65 72 73 20 |t-extra-|headers |
|00003400| 6e 69 6c 20 28 23 24 20 | 2e 20 31 33 31 37 36 29 |nil (#$ |. 13176)|
|00003410| 29 0a 23 40 34 31 20 54 | 68 65 20 6d 65 74 68 6f |).#@41 T|he metho|
|00003420| 64 20 74 6f 20 75 73 65 | 20 66 6f 72 20 74 68 65 |d to use| for the|
|00003430| 20 6e 65 78 74 20 72 65 | 71 75 65 73 74 2e 1f 0a | next re|quest...|
|00003440| 28 64 65 66 76 61 72 20 | 75 72 6c 2d 72 65 71 75 |(defvar |url-requ|
|00003450| 65 73 74 2d 6d 65 74 68 | 6f 64 20 6e 69 6c 20 28 |est-meth|od nil (|
|00003460| 23 24 20 2e 20 31 33 33 | 33 35 29 29 0a 23 40 31 |#$ . 133|35)).#@1|
|00003470| 35 30 20 2a 53 74 72 69 | 6e 67 20 74 6f 20 73 65 |50 *Stri|ng to se|
|00003480| 6e 64 20 74 6f 20 74 68 | 65 20 73 65 72 76 65 72 |nd to th|e server|
|00003490| 20 69 6e 20 74 68 65 20 | 41 63 63 65 70 74 2d 65 | in the |Accept-e|
|000034a0| 6e 63 6f 64 69 6e 67 3a | 20 66 69 65 6c 64 20 69 |ncoding:| field i|
|000034b0| 6e 20 48 54 54 50 2f 31 | 2e 30 0a 72 65 71 75 65 |n HTTP/1|.0.reque|
|000034c0| 73 74 73 2e 20 20 54 68 | 69 73 20 69 73 20 63 72 |sts.  Th|is is cr|
|000034d0| 65 61 74 65 64 20 61 75 | 74 6f 6d 61 74 69 63 61 |eated au|tomatica|
|000034e0| 6c 6c 79 20 66 72 6f 6d | 20 6d 6d 2d 63 6f 6e 74 |lly from| mm-cont|
|000034f0| 65 6e 74 2d 74 72 61 6e | 73 66 65 72 2d 65 6e 63 |ent-tran|sfer-enc|
|00003500| 6f 64 69 6e 67 73 2e 1f | 0a 28 64 65 66 76 61 72 |odings..|.(defvar|
|00003510| 20 75 72 6c 2d 6d 69 6d | 65 2d 65 6e 63 6f 64 69 | url-mim|e-encodi|
|00003520| 6e 67 2d 73 74 72 69 6e | 67 20 6e 69 6c 20 28 23 |ng-strin|g nil (#|
|00003530| 24 20 2e 20 2d 31 33 34 | 32 37 29 29 0a 28 63 75 |$ . -134|27)).(cu|
|00003540| 73 74 6f 6d 2d 64 65 63 | 6c 61 72 65 2d 76 61 72 |stom-dec|lare-var|
|00003550| 69 61 62 6c 65 20 27 75 | 72 6c 2d 6d 69 6d 65 2d |iable 'u|rl-mime-|
|00003560| 6c 61 6e 67 75 61 67 65 | 2d 73 74 72 69 6e 67 20 |language|-string |
|00003570| 27 22 2a 22 20 22 2a 53 | 74 72 69 6e 67 20 74 6f |'"*" "*S|tring to|
|00003580| 20 73 65 6e 64 20 74 6f | 20 74 68 65 20 73 65 72 | send to| the ser|
|00003590| 76 65 72 20 69 6e 20 74 | 68 65 20 41 63 63 65 70 |ver in t|he Accep|
|000035a0| 74 2d 6c 61 6e 67 75 61 | 67 65 3a 20 66 69 65 6c |t-langua|ge: fiel|
|000035b0| 64 20 69 6e 5c 6e 48 54 | 54 50 2f 31 2e 30 20 72 |d in\nHT|TP/1.0 r|
|000035c0| 65 71 75 65 73 74 73 2e | 22 20 3a 74 79 70 65 20 |equests.|" :type |
|000035d0| 27 73 74 72 69 6e 67 20 | 3a 67 72 6f 75 70 20 27 |'string |:group '|
|000035e0| 75 72 6c 2d 6d 69 6d 65 | 20 3a 67 72 6f 75 70 20 |url-mime| :group |
|000035f0| 27 69 31 38 6e 29 0a 23 | 40 31 36 36 20 53 74 72 |'i18n).#|@166 Str|
|00003600| 69 6e 67 20 74 6f 20 73 | 65 6e 64 20 74 6f 20 74 |ing to s|end to t|
|00003610| 68 65 20 73 65 72 76 65 | 72 20 69 6e 20 74 68 65 |he serve|r in the|
|00003620| 20 41 63 63 65 70 74 3a | 20 66 69 65 6c 64 20 69 | Accept:| field i|
|00003630| 6e 20 48 54 54 50 2f 31 | 2e 30 20 72 65 71 75 65 |n HTTP/1|.0 reque|
|00003640| 73 74 73 2e 0a 54 68 69 | 73 20 69 73 20 63 72 65 |sts..Thi|s is cre|
|00003650| 61 74 65 64 20 61 75 74 | 6f 6d 61 74 69 63 61 6c |ated aut|omatical|
|00003660| 6c 79 20 66 72 6f 6d 20 | 75 72 6c 2d 6d 69 6d 65 |ly from |url-mime|
|00003670| 2d 76 69 65 77 65 72 73 | 2c 20 61 66 74 65 72 20 |-viewers|, after |
|00003680| 74 68 65 20 6d 61 69 6c | 63 61 70 20 66 69 6c 65 |the mail|cap file|
|00003690| 0a 68 61 73 20 62 65 65 | 6e 20 70 61 72 73 65 64 |.has bee|n parsed|
|000036a0| 2e 1f 0a 28 64 65 66 76 | 61 72 20 75 72 6c 2d 6d |...(defv|ar url-m|
|000036b0| 69 6d 65 2d 61 63 63 65 | 70 74 2d 73 74 72 69 6e |ime-acce|pt-strin|
|000036c0| 67 20 6e 69 6c 20 28 23 | 24 20 2e 20 31 33 38 32 |g nil (#|$ . 1382|
|000036d0| 31 29 29 0a 23 40 36 39 | 20 57 68 65 74 68 65 72 |1)).#@69| Whether|
|000036e0| 20 74 68 65 20 68 69 73 | 74 6f 72 79 20 6c 69 73 | the his|tory lis|
|000036f0| 74 20 68 61 73 20 63 68 | 61 6e 67 65 64 20 73 69 |t has ch|anged si|
|00003700| 6e 63 65 20 74 68 65 20 | 6c 61 73 74 20 73 61 76 |nce the |last sav|
|00003710| 65 20 6f 70 65 72 61 74 | 69 6f 6e 2e 1f 0a 28 64 |e operat|ion...(d|
|00003720| 65 66 76 61 72 20 75 72 | 6c 2d 68 69 73 74 6f 72 |efvar ur|l-histor|
|00003730| 79 2d 63 68 61 6e 67 65 | 64 2d 73 69 6e 63 65 2d |y-change|d-since-|
|00003740| 6c 61 73 74 2d 73 61 76 | 65 20 6e 69 6c 20 28 23 |last-sav|e nil (#|
|00003750| 24 20 2e 20 31 34 30 34 | 31 29 29 0a 23 40 33 37 |$ . 1404|1)).#@37|
|00003760| 20 49 6e 74 65 72 6e 61 | 6c 20 73 74 72 75 63 74 | Interna|l struct|
|00003770| 75 72 65 20 2d 20 64 6f | 20 6e 6f 74 20 6d 6f 64 |ure - do| not mod|
|00003780| 69 66 79 21 1f 0a 28 64 | 65 66 76 61 72 20 75 72 |ify!..(d|efvar ur|
|00003790| 6c 2d 70 72 6f 78 79 2d | 62 61 73 69 63 2d 61 75 |l-proxy-|basic-au|
|000037a0| 74 68 65 6e 74 69 63 61 | 74 69 6f 6e 20 6e 69 6c |thentica|tion nil|
|000037b0| 20 28 23 24 20 2e 20 31 | 34 31 37 37 29 29 0a 23 | (#$ . 1|4177)).#|
|000037c0| 40 36 36 20 49 6e 74 65 | 72 6e 61 6c 20 73 74 72 |@66 Inte|rnal str|
|000037d0| 75 63 74 75 72 65 20 2d | 20 64 6f 20 6e 6f 74 20 |ucture -| do not |
|000037e0| 6d 6f 64 69 66 79 21 20 | 20 53 65 65 20 60 75 72 |modify! | See `ur|
|000037f0| 6c 2d 72 65 67 69 73 74 | 65 72 2d 70 72 6f 74 6f |l-regist|er-proto|
|00003800| 63 6f 6c 27 1f 0a 28 64 | 65 66 76 61 72 20 75 72 |col'..(d|efvar ur|
|00003810| 6c 2d 72 65 67 69 73 74 | 65 72 65 64 2d 70 72 6f |l-regist|ered-pro|
|00003820| 74 6f 63 6f 6c 73 20 6e | 69 6c 20 28 23 24 20 2e |tocols n|il (#$ .|
|00003830| 20 31 34 32 37 36 29 29 | 0a 23 40 33 33 20 56 65 | 14276))|.#@33 Ve|
|00003840| 72 73 69 6f 6e 20 23 20 | 6f 66 20 70 61 63 6b 61 |rsion # |of packa|
|00003850| 67 65 20 75 73 69 6e 67 | 20 55 52 4c 2e 1f 0a 28 |ge using| URL...(|
|00003860| 64 65 66 76 61 72 20 75 | 72 6c 2d 70 61 63 6b 61 |defvar u|rl-packa|
|00003870| 67 65 2d 76 65 72 73 69 | 6f 6e 20 22 55 6e 6b 6e |ge-versi|on "Unkn|
|00003880| 6f 77 6e 22 20 28 23 24 | 20 2e 20 31 34 33 39 38 |own" (#$| . 14398|
|00003890| 29 29 0a 23 40 33 33 20 | 56 65 72 73 69 6f 6e 20 |)).#@33 |Version |
|000038a0| 23 20 6f 66 20 70 61 63 | 6b 61 67 65 20 75 73 69 |# of pac|kage usi|
|000038b0| 6e 67 20 55 52 4c 2e 1f | 0a 28 64 65 66 76 61 72 |ng URL..|.(defvar|
|000038c0| 20 75 72 6c 2d 70 61 63 | 6b 61 67 65 2d 6e 61 6d | url-pac|kage-nam|
|000038d0| 65 20 22 55 6e 6b 6e 6f | 77 6e 22 20 28 23 24 20 |e "Unkno|wn" (#$ |
|000038e0| 2e 20 31 34 34 38 38 29 | 29 0a 23 40 33 32 20 57 |. 14488)|).#@32 W|
|000038f0| 68 61 74 20 74 79 70 65 | 20 6f 66 20 73 79 73 74 |hat type| of syst|
|00003900| 65 6d 20 77 65 20 61 72 | 65 20 6f 6e 2e 1f 0a 28 |em we ar|e on...(|
|00003910| 64 65 66 76 61 72 20 75 | 72 6c 2d 73 79 73 74 65 |defvar u|rl-syste|
|00003920| 6d 2d 74 79 70 65 20 6e | 69 6c 20 28 23 24 20 2e |m-type n|il (#$ .|
|00003930| 20 31 34 35 37 35 29 29 | 0a 23 40 32 30 20 57 68 | 14575))|.#@20 Wh|
|00003940| 61 74 20 4f 53 20 77 65 | 20 61 72 65 20 6f 6e 2e |at OS we| are on.|
|00003950| 1f 0a 28 64 65 66 76 61 | 72 20 75 72 6c 2d 6f 73 |..(defva|r url-os|
|00003960| 2d 74 79 70 65 20 6e 69 | 6c 20 28 23 24 20 2e 20 |-type ni|l (#$ . |
|00003970| 31 34 36 35 34 29 29 0a | 28 63 75 73 74 6f 6d 2d |14654)).|(custom-|
|00003980| 64 65 63 6c 61 72 65 2d | 76 61 72 69 61 62 6c 65 |declare-|variable|
|00003990| 20 27 75 72 6c 2d 6d 61 | 78 2d 70 61 73 73 77 6f | 'url-ma|x-passwo|
|000039a0| 72 64 2d 61 74 74 65 6d | 70 74 73 20 27 35 20 22 |rd-attem|pts '5 "|
|000039b0| 2a 4d 61 78 69 6d 75 6d | 20 6e 75 6d 62 65 72 20 |*Maximum| number |
|000039c0| 6f 66 20 74 69 6d 65 73 | 20 61 20 70 61 73 73 77 |of times| a passw|
|000039d0| 6f 72 64 20 77 69 6c 6c | 20 62 65 20 70 72 6f 6d |ord will| be prom|
|000039e0| 70 74 65 64 20 66 6f 72 | 20 77 68 65 6e 20 61 5c |pted for| when a\|
|000039f0| 6e 70 72 6f 74 65 63 74 | 65 64 20 64 6f 63 75 6d |nprotect|ed docum|
|00003a00| 65 6e 74 20 69 73 20 64 | 65 6e 69 65 64 20 62 79 |ent is d|enied by|
|00003a10| 20 74 68 65 20 73 65 72 | 76 65 72 2e 22 20 3a 74 | the ser|ver." :t|
|00003a20| 79 70 65 20 27 69 6e 74 | 65 67 65 72 20 3a 67 72 |ype 'int|eger :gr|
|00003a30| 6f 75 70 20 27 75 72 6c | 29 0a 28 63 75 73 74 6f |oup 'url|).(custo|
|00003a40| 6d 2d 64 65 63 6c 61 72 | 65 2d 76 61 72 69 61 62 |m-declar|e-variab|
|00003a50| 6c 65 20 27 75 72 6c 2d | 74 65 6d 70 6f 72 61 72 |le 'url-|temporar|
|00003a60| 79 2d 64 69 72 65 63 74 | 6f 72 79 20 27 28 6f 72 |y-direct|ory '(or|
|00003a70| 20 28 67 65 74 65 6e 76 | 20 22 54 4d 50 44 49 52 | (getenv| "TMPDIR|
|00003a80| 22 29 20 22 2f 74 6d 70 | 22 29 20 22 2a 57 68 65 |") "/tmp|") "*Whe|
|00003a90| 72 65 20 74 65 6d 70 6f | 72 61 72 79 20 66 69 6c |re tempo|rary fil|
|00003aa0| 65 73 20 67 6f 2e 22 20 | 3a 74 79 70 65 20 27 64 |es go." |:type 'd|
|00003ab0| 69 72 65 63 74 6f 72 79 | 20 3a 67 72 6f 75 70 20 |irectory| :group |
|00003ac0| 27 75 72 6c 2d 66 69 6c | 65 29 0a 28 63 75 73 74 |'url-fil|e).(cust|
|00003ad0| 6f 6d 2d 64 65 63 6c 61 | 72 65 2d 76 61 72 69 61 |om-decla|re-varia|
|00003ae0| 62 6c 65 20 27 75 72 6c | 2d 73 68 6f 77 2d 73 74 |ble 'url|-show-st|
|00003af0| 61 74 75 73 20 27 74 20 | 22 2a 57 68 65 74 68 65 |atus 't |"*Whethe|
|00003b00| 72 20 74 6f 20 73 68 6f | 77 20 61 20 72 75 6e 6e |r to sho|w a runn|
|00003b10| 69 6e 67 20 74 6f 74 61 | 6c 20 6f 66 20 62 79 74 |ing tota|l of byt|
|00003b20| 65 73 20 74 72 61 6e 73 | 66 65 72 72 65 64 2e 20 |es trans|ferred. |
|00003b30| 20 43 61 6e 20 63 61 75 | 73 65 20 61 5c 6e 6c 61 | Can cau|se a\nla|
|00003b40| 72 67 65 20 68 69 74 20 | 69 66 20 75 73 69 6e 67 |rge hit |if using|
|00003b50| 20 61 20 72 65 6d 6f 74 | 65 20 58 20 64 69 73 70 | a remot|e X disp|
|00003b60| 6c 61 79 20 6f 76 65 72 | 20 61 20 73 6c 6f 77 20 |lay over| a slow |
|00003b70| 6c 69 6e 6b 2c 20 6f 72 | 20 61 20 74 65 72 6d 69 |link, or| a termi|
|00003b80| 6e 61 6c 5c 6e 77 69 74 | 68 20 61 20 73 6c 6f 77 |nal\nwit|h a slow|
|00003b90| 20 6d 6f 64 65 6d 2e 22 | 20 3a 74 79 70 65 20 27 | modem."| :type '|
|00003ba0| 62 6f 6f 6c 65 61 6e 20 | 3a 67 72 6f 75 70 20 27 |boolean |:group '|
|00003bb0| 75 72 6c 29 0a 23 40 38 | 31 20 45 69 74 68 65 72 |url).#@8|1 Either|
|00003bc0| 20 6e 69 6c 20 6f 72 20 | 74 68 65 20 66 75 6c 6c | nil or |the full|
|00003bd0| 79 20 71 75 61 6c 69 66 | 69 65 64 20 70 72 6f 78 |y qualif|ied prox|
|00003be0| 79 20 55 52 4c 20 69 6e | 20 75 73 65 2c 20 65 2e |y URL in| use, e.|
|00003bf0| 67 2e 0a 68 74 74 70 3a | 2f 2f 77 77 77 2e 64 6f |g..http:|//www.do|
|00003c00| 6d 61 69 6e 2e 63 6f 6d | 2f 1f 0a 28 64 65 66 76 |main.com|/..(defv|
|00003c10| 61 72 20 75 72 6c 2d 75 | 73 69 6e 67 2d 70 72 6f |ar url-u|sing-pro|
|00003c20| 78 79 20 6e 69 6c 20 28 | 23 24 20 2e 20 31 35 32 |xy nil (|#$ . 152|
|00003c30| 39 30 29 29 0a 28 63 75 | 73 74 6f 6d 2d 64 65 63 |90)).(cu|stom-dec|
|00003c40| 6c 61 72 65 2d 76 61 72 | 69 61 62 6c 65 20 27 75 |lare-var|iable 'u|
|00003c50| 72 6c 2d 6e 65 77 73 2d | 73 65 72 76 65 72 20 27 |rl-news-|server '|
|00003c60| 6e 69 6c 20 22 2a 54 68 | 65 20 64 65 66 61 75 6c |nil "*Th|e defaul|
|00003c70| 74 20 6e 65 77 73 20 73 | 65 72 76 65 72 20 74 6f |t news s|erver to|
|00003c80| 20 67 65 74 20 6e 65 77 | 73 67 72 6f 75 70 73 2f | get new|sgroups/|
|00003c90| 61 72 74 69 63 6c 65 73 | 20 66 72 6f 6d 20 69 66 |articles| from if|
|00003ca0| 20 6e 6f 20 73 65 72 76 | 65 72 5c 6e 69 73 20 73 | no serv|er\nis s|
|00003cb0| 70 65 63 69 66 69 65 64 | 20 69 6e 20 74 68 65 20 |pecified| in the |
|00003cc0| 55 52 4c 2e 20 20 44 65 | 66 61 75 6c 74 73 20 74 |URL.  De|faults t|
|00003cd0| 6f 20 74 68 65 20 65 6e | 76 69 72 6f 6e 6d 65 6e |o the en|vironmen|
|00003ce0| 74 20 76 61 72 69 61 62 | 6c 65 20 4e 4e 54 50 53 |t variab|le NNTPS|
|00003cf0| 45 52 56 45 52 5c 6e 6f | 72 20 5c 22 6e 65 77 73 |ERVER\no|r \"news|
|00003d00| 5c 22 20 69 66 20 4e 4e | 54 50 53 45 52 56 45 52 |\" if NN|TPSERVER|
|00003d10| 20 69 73 20 75 6e 64 65 | 66 69 6e 65 64 2e 22 20 | is unde|fined." |
|00003d20| 3a 74 79 70 65 20 27 28 | 63 68 6f 69 63 65 20 28 |:type '(|choice (|
|00003d30| 63 6f 6e 73 74 20 3a 74 | 61 67 20 22 4e 6f 6e 65 |const :t|ag "None|
|00003d40| 22 20 3a 76 61 6c 75 65 | 20 6e 69 6c 29 20 73 74 |" :value| nil) st|
|00003d50| 72 69 6e 67 29 20 3a 67 | 72 6f 75 70 20 27 75 72 |ring) :g|roup 'ur|
|00003d60| 6c 29 0a 28 63 75 73 74 | 6f 6d 2d 64 65 63 6c 61 |l).(cust|om-decla|
|00003d70| 72 65 2d 76 61 72 69 61 | 62 6c 65 20 27 75 72 6c |re-varia|ble 'url|
|00003d80| 2d 67 6f 70 68 65 72 2d | 74 6f 2d 6d 69 6d 65 20 |-gopher-|to-mime |
|00003d90| 27 27 28 28 3f 30 20 2e | 20 22 74 65 78 74 2f 70 |''((?0 .| "text/p|
|00003da0| 6c 61 69 6e 22 29 20 28 | 3f 31 20 2e 20 22 77 77 |lain") (|?1 . "ww|
|00003db0| 77 2f 67 6f 70 68 65 72 | 22 29 20 28 3f 32 20 2e |w/gopher|") (?2 .|
|00003dc0| 20 22 77 77 77 2f 67 6f | 70 68 65 72 2d 63 73 6f | "www/go|pher-cso|
|00003dd0| 2d 73 65 61 72 63 68 22 | 29 20 28 3f 33 20 2e 20 |-search"|) (?3 . |
|00003de0| 22 74 65 78 74 2f 70 6c | 61 69 6e 22 29 20 28 3f |"text/pl|ain") (?|
|00003df0| 34 20 2e 20 22 61 70 70 | 6c 69 63 61 74 69 6f 6e |4 . "app|lication|
|00003e00| 2f 6d 61 63 2d 62 69 6e | 68 65 78 34 30 22 29 20 |/mac-bin|hex40") |
|00003e10| 28 3f 35 20 2e 20 22 61 | 70 70 6c 69 63 61 74 69 |(?5 . "a|pplicati|
|00003e20| 6f 6e 2f 70 63 2d 62 69 | 6e 68 65 78 34 30 22 29 |on/pc-bi|nhex40")|
|00003e30| 20 28 3f 36 20 2e 20 22 | 61 72 63 68 69 76 65 2f | (?6 . "|archive/|
|00003e40| 78 2d 75 75 65 6e 63 6f | 64 65 22 29 20 28 3f 37 |x-uuenco|de") (?7|
|00003e50| 20 2e 20 22 77 77 77 2f | 67 6f 70 68 65 72 2d 73 | . "www/|gopher-s|
|00003e60| 65 61 72 63 68 22 29 20 | 28 3f 39 20 2e 20 22 61 |earch") |(?9 . "a|
|00003e70| 70 70 6c 69 63 61 74 69 | 6f 6e 2f 6f 63 74 65 74 |pplicati|on/octet|
|00003e80| 2d 73 74 72 65 61 6d 22 | 29 20 28 3f 67 20 2e 20 |-stream"|) (?g . |
|00003e90| 22 69 6d 61 67 65 2f 67 | 69 66 22 29 20 28 3f 49 |"image/g|if") (?I|
|00003ea0| 20 2e 20 22 69 6d 61 67 | 65 2f 67 69 66 22 29 20 | . "imag|e/gif") |
|00003eb0| 28 3f 68 20 2e 20 22 74 | 65 78 74 2f 68 74 6d 6c |(?h . "t|ext/html|
|00003ec0| 22 29 20 28 3f 73 20 2e | 20 22 61 75 64 69 6f 2f |") (?s .| "audio/|
|00003ed0| 62 61 73 69 63 22 29 29 | 20 22 2a 41 6e 20 61 73 |basic"))| "*An as|
|00003ee0| 73 6f 63 20 6c 69 73 74 | 20 6f 66 20 67 6f 70 68 |soc list| of goph|
|00003ef0| 65 72 20 74 79 70 65 73 | 20 61 6e 64 20 74 68 65 |er types| and the|
|00003f00| 69 72 20 63 6f 72 72 65 | 73 70 6f 6e 64 69 6e 67 |ir corre|sponding|
|00003f10| 20 4d 49 4d 45 20 74 79 | 70 65 73 2e 22 20 3a 74 | MIME ty|pes." :t|
|00003f20| 79 70 65 20 27 28 72 65 | 70 65 61 74 20 28 63 6f |ype '(re|peat (co|
|00003f30| 6e 73 20 73 65 78 70 20 | 73 74 72 69 6e 67 29 29 |ns sexp |string))|
|00003f40| 20 3a 67 72 6f 75 70 20 | 27 75 72 6c 2d 68 61 69 | :group |'url-hai|
|00003f50| 72 79 29 0a 28 63 75 73 | 74 6f 6d 2d 64 65 63 6c |ry).(cus|tom-decl|
|00003f60| 61 72 65 2d 76 61 72 69 | 61 62 6c 65 20 27 75 72 |are-vari|able 'ur|
|00003f70| 6c 2d 75 73 65 2d 68 79 | 70 65 72 74 65 78 74 2d |l-use-hy|pertext-|
|00003f80| 67 6f 70 68 65 72 20 27 | 74 20 22 2a 43 6f 6e 74 |gopher '|t "*Cont|
|00003f90| 72 6f 6c 73 20 68 6f 77 | 20 67 6f 70 68 65 72 20 |rols how| gopher |
|00003fa0| 64 6f 63 75 6d 65 6e 74 | 73 20 61 72 65 20 72 65 |document|s are re|
|00003fb0| 74 72 69 65 76 65 64 2e | 5c 6e 49 66 20 6e 6f 6e |trieved.|\nIf non|
|00003fc0| 2d 6e 69 6c 2c 20 74 68 | 65 20 67 6f 70 68 65 72 |-nil, th|e gopher|
|00003fd0| 20 70 61 67 65 73 20 77 | 69 6c 6c 20 62 65 20 63 | pages w|ill be c|
|00003fe0| 6f 6e 76 65 72 74 65 64 | 20 69 6e 74 6f 20 48 54 |onverted| into HT|
|00003ff0| 4d 4c 20 61 6e 64 20 70 | 61 72 73 65 64 5c 6e 6a |ML and p|arsed\nj|
|00004000| 75 73 74 20 6c 69 6b 65 | 20 61 6e 79 20 6f 74 68 |ust like| any oth|
|00004010| 65 72 20 70 61 67 65 2e | 20 20 49 66 20 6e 69 6c |er page.|  If nil|
|00004020| 2c 20 74 68 65 20 72 65 | 71 75 65 73 74 73 20 77 |, the re|quests w|
|00004030| 69 6c 6c 20 62 65 20 70 | 61 73 73 65 64 20 6f 66 |ill be p|assed of|
|00004040| 66 20 74 6f 5c 6e 74 68 | 65 20 67 6f 70 68 65 72 |f to\nth|e gopher|
|00004050| 2e 65 6c 20 70 61 63 6b | 61 67 65 20 62 79 20 53 |.el pack|age by S|
|00004060| 63 6f 74 74 20 53 6e 79 | 64 65 72 2e 20 20 55 73 |cott Sny|der.  Us|
|00004070| 69 6e 67 20 74 68 65 20 | 67 6f 70 68 65 72 2e 65 |ing the |gopher.e|
|00004080| 6c 20 70 61 63 6b 61 67 | 65 5c 6e 77 69 6c 6c 20 |l packag|e\nwill |
|00004090| 6c 6f 73 65 20 74 68 65 | 20 67 6f 70 68 65 72 2b |lose the| gopher+|
|000040a0| 20 73 75 70 70 6f 72 74 | 2c 20 61 6e 64 20 69 6e | support|, and in|
|000040b0| 6c 69 6e 65 64 20 73 65 | 61 72 63 68 69 6e 67 2e |lined se|arching.|
|000040c0| 22 20 3a 74 79 70 65 20 | 27 62 6f 6f 6c 65 61 6e |" :type |'boolean|
|000040d0| 20 3a 67 72 6f 75 70 20 | 27 75 72 6c 29 0a 23 40 | :group |'url).#@|
|000040e0| 34 33 20 48 61 73 68 20 | 74 61 62 6c 65 20 66 6f |43 Hash |table fo|
|000040f0| 72 20 67 6c 6f 62 61 6c | 20 68 69 73 74 6f 72 79 |r global| history|
|00004100| 20 63 6f 6d 70 6c 65 74 | 69 6f 6e 2e 1f 0a 28 64 | complet|ion...(d|
|00004110| 65 66 76 61 72 20 75 72 | 6c 2d 67 6c 6f 62 61 6c |efvar ur|l-global|
|00004120| 2d 68 69 73 74 6f 72 79 | 2d 68 61 73 68 2d 74 61 |-history|-hash-ta|
|00004130| 62 6c 65 20 6e 69 6c 20 | 28 23 24 20 2e 20 31 36 |ble nil |(#$ . 16|
|00004140| 36 31 31 29 29 0a 23 40 | 35 35 20 41 20 72 65 67 |611)).#@|55 A reg|
|00004150| 75 6c 61 72 20 65 78 70 | 72 65 73 73 69 6f 6e 20 |ular exp|ression |
|00004160| 74 68 61 74 20 77 69 6c | 6c 20 6d 61 74 63 68 20 |that wil|l match |
|00004170| 61 6e 20 61 62 73 6f 6c | 75 74 65 20 55 52 4c 2e |an absol|ute URL.|
|00004180| 1f 0a 28 64 65 66 76 61 | 72 20 75 72 6c 2d 6e 6f |..(defva|r url-no|
|00004190| 6e 72 65 6c 61 74 69 76 | 65 2d 6c 69 6e 6b 20 22 |nrelativ|e-link "|
|000041a0| 5e 5c 5c 28 5b 2d 61 2d | 7a 41 2d 5a 30 2d 39 2b |^\\([-a-|zA-Z0-9+|
|000041b0| 2e 5d 2b 3a 5c 5c 29 22 | 20 28 23 24 20 2e 20 31 |.]+:\\)"| (#$ . 1|
|000041c0| 36 37 31 35 29 29 0a 28 | 63 75 73 74 6f 6d 2d 64 |6715)).(|custom-d|
|000041d0| 65 63 6c 61 72 65 2d 76 | 61 72 69 61 62 6c 65 20 |eclare-v|ariable |
|000041e0| 27 75 72 6c 2d 63 6f 6e | 66 69 72 6d 61 74 69 6f |'url-con|firmatio|
|000041f0| 6e 2d 66 75 6e 63 20 27 | 27 79 2d 6f 72 2d 6e 2d |n-func '|'y-or-n-|
|00004200| 70 20 22 2a 57 68 61 74 | 20 66 75 6e 63 74 69 6f |p "*What| functio|
|00004210| 6e 20 74 6f 20 75 73 65 | 20 66 6f 72 20 61 73 6b |n to use| for ask|
|00004220| 69 6e 67 20 79 65 73 20 | 6f 72 20 6e 6f 20 66 75 |ing yes |or no fu|
|00004230| 6e 63 74 69 6f 6e 73 2e | 20 20 50 6f 73 73 69 62 |nctions.|  Possib|
|00004240| 6c 65 5c 6e 76 61 6c 75 | 65 73 20 61 72 65 20 27 |le\nvalu|es are '|
|00004250| 79 65 73 2d 6f 72 2d 6e | 6f 2d 70 20 6f 72 20 27 |yes-or-n|o-p or '|
|00004260| 79 2d 6f 72 2d 6e 2d 70 | 2c 20 6f 72 20 61 6e 79 |y-or-n-p|, or any|
|00004270| 20 66 75 6e 63 74 69 6f | 6e 20 74 68 61 74 20 74 | functio|n that t|
|00004280| 61 6b 65 73 20 61 5c 6e | 73 69 6e 67 6c 65 20 61 |akes a\n|single a|
|00004290| 72 67 75 6d 65 6e 74 20 | 28 74 68 65 20 70 72 6f |rgument |(the pro|
|000042a0| 6d 70 74 29 2c 20 61 6e | 64 20 72 65 74 75 72 6e |mpt), an|d return|
|000042b0| 73 20 74 20 6f 6e 6c 79 | 20 69 66 20 61 20 70 6f |s t only| if a po|
|000042c0| 73 69 74 69 76 65 20 61 | 6e 73 77 65 72 5c 6e 69 |sitive a|nswer\ni|
|000042d0| 73 20 67 6f 74 74 65 6e | 2e 22 20 3a 74 79 70 65 |s gotten|." :type|
|000042e0| 20 27 28 63 68 6f 69 63 | 65 20 28 63 6f 6e 73 74 | '(choic|e (const|
|000042f0| 20 3a 74 61 67 20 22 53 | 68 6f 72 74 20 28 79 20 | :tag "S|hort (y |
|00004300| 6f 72 20 6e 29 22 20 3a | 76 61 6c 75 65 20 79 2d |or n)" :|value y-|
|00004310| 6f 72 2d 6e 2d 70 29 20 | 28 63 6f 6e 73 74 20 3a |or-n-p) |(const :|
|00004320| 74 61 67 20 22 4c 6f 6e | 67 20 28 79 65 73 20 6f |tag "Lon|g (yes o|
|00004330| 72 20 6e 6f 29 22 20 3a | 76 61 6c 75 65 20 79 65 |r no)" :|value ye|
|00004340| 73 2d 6f 72 2d 6e 6f 2d | 70 29 20 28 66 75 6e 63 |s-or-no-|p) (func|
|00004350| 74 69 6f 6e 20 3a 74 61 | 67 20 22 4f 74 68 65 72 |tion :ta|g "Other|
|00004360| 22 29 29 20 3a 67 72 6f | 75 70 20 27 75 72 6c 2d |")) :gro|up 'url-|
|00004370| 68 61 69 72 79 29 0a 28 | 63 75 73 74 6f 6d 2d 64 |hairy).(|custom-d|
|00004380| 65 63 6c 61 72 65 2d 76 | 61 72 69 61 62 6c 65 20 |eclare-v|ariable |
|00004390| 27 75 72 6c 2d 67 61 74 | 65 77 61 79 2d 6d 65 74 |'url-gat|eway-met|
|000043a0| 68 6f 64 20 27 27 6e 61 | 74 69 76 65 20 22 2a 54 |hod ''na|tive "*T|
|000043b0| 68 65 20 74 79 70 65 20 | 6f 66 20 67 61 74 65 77 |he type |of gatew|
|000043c0| 61 79 20 73 75 70 70 6f | 72 74 20 74 6f 20 75 73 |ay suppo|rt to us|
|000043d0| 65 2e 5c 6e 53 68 6f 75 | 6c 64 20 62 65 20 61 20 |e.\nShou|ld be a |
|000043e0| 73 79 6d 62 6f 6c 20 73 | 70 65 63 69 66 79 69 6e |symbol s|pecifyin|
|000043f0| 67 20 68 6f 77 20 77 65 | 20 61 72 65 20 74 6f 20 |g how we| are to |
|00004400| 67 65 74 20 61 20 63 6f | 6e 6e 65 63 74 69 6f 6e |get a co|nnection|
|00004410| 20 6f 66 66 20 6f 66 20 | 74 68 65 5c 6e 6c 6f 63 | off of |the\nloc|
|00004420| 61 6c 20 6d 61 63 68 69 | 6e 65 2e 5c 6e 5c 6e 43 |al machi|ne.\n\nC|
|00004430| 75 72 72 65 6e 74 6c 79 | 20 73 75 70 70 6f 72 74 |urrently| support|
|00004440| 65 64 20 6d 65 74 68 6f | 64 73 3a 5c 6e 27 74 65 |ed metho|ds:\n'te|
|00004450| 6c 6e 65 74 20 20 20 09 | 3a 3a 20 52 75 6e 20 74 |lnet   .|:: Run t|
|00004460| 65 6c 6e 65 74 20 69 6e | 20 61 20 73 75 62 70 72 |elnet in| a subpr|
|00004470| 6f 63 65 73 73 20 74 6f | 20 63 6f 6e 6e 65 63 74 |ocess to| connect|
|00004480| 5c 6e 27 72 6c 6f 67 69 | 6e 20 20 20 20 20 20 20 |\n'rlogi|n       |
|00004490| 20 20 3a 3a 20 52 6c 6f | 67 69 6e 20 74 6f 20 61 |  :: Rlo|gin to a|
|000044a0| 6e 6f 74 68 65 72 20 6d | 61 63 68 69 6e 65 20 74 |nother m|achine t|
|000044b0| 6f 20 63 6f 6e 6e 65 63 | 74 5c 6e 27 73 6f 63 6b |o connec|t\n'sock|
|000044c0| 73 20 20 20 20 20 20 20 | 20 20 20 3a 3a 20 43 6f |s       |   :: Co|
|000044d0| 6e 6e 65 63 74 73 20 74 | 68 72 6f 75 67 68 20 61 |nnects t|hrough a|
|000044e0| 20 73 6f 63 6b 73 20 73 | 65 72 76 65 72 5c 6e 27 | socks s|erver\n'|
|000044f0| 73 73 6c 20 20 20 20 20 | 20 20 20 20 20 20 20 3a |ssl     |       :|
|00004500| 3a 20 43 6f 6e 6e 65 63 | 74 69 6f 6e 20 73 68 6f |: Connec|tion sho|
|00004510| 75 6c 64 20 62 65 20 6d | 61 64 65 20 77 69 74 68 |uld be m|ade with|
|00004520| 20 53 53 4c 5c 6e 27 74 | 63 70 20 20 20 20 20 20 | SSL\n't|cp      |
|00004530| 20 20 20 20 20 20 3a 3a | 20 55 73 65 20 74 68 65 |      ::| Use the|
|00004540| 20 65 78 63 65 6c 6c 65 | 6e 74 20 74 63 70 2e 65 | excelle|nt tcp.e|
|00004550| 6c 20 70 61 63 6b 61 67 | 65 20 66 72 6f 6d 20 67 |l packag|e from g|
|00004560| 6e 75 73 2e 5c 6e 20 20 | 20 20 20 20 20 20 20 20 |nus.\n  |        |
|00004570| 20 20 20 20 20 20 20 20 | 20 54 68 69 73 20 73 69 |        | This si|
|00004580| 6d 70 6c 79 20 64 6f 65 | 73 20 61 20 28 72 65 71 |mply doe|s a (req|
|00004590| 75 69 72 65 20 27 74 63 | 70 29 2c 20 74 68 65 6e |uire 'tc|p), then|
|000045a0| 20 73 65 74 73 5c 6e 20 | 20 20 20 20 20 20 20 20 | sets\n |        |
|000045b0| 20 20 20 20 20 20 20 20 | 20 20 75 72 6c 2d 67 61 |        |  url-ga|
|000045c0| 74 65 77 61 79 2d 6d 65 | 74 68 6f 64 20 74 6f 20 |teway-me|thod to |
|000045d0| 62 65 20 27 6e 61 74 69 | 76 65 2e 5c 6e 27 6e 61 |be 'nati|ve.\n'na|
|000045e0| 74 69 76 65 09 09 3a 3a | 20 55 73 65 20 74 68 65 |tive..::| Use the|
|000045f0| 20 6e 61 74 69 76 65 20 | 6f 70 65 6e 2d 6e 65 74 | native |open-net|
|00004600| 77 6f 72 6b 2d 73 74 72 | 65 61 6d 20 69 6e 20 65 |work-str|eam in e|
|00004610| 6d 61 63 73 5c 6e 22 20 | 3a 74 79 70 65 20 27 28 |macs\n" |:type '(|
|00004620| 72 61 64 69 6f 20 28 63 | 6f 6e 73 74 20 3a 74 61 |radio (c|onst :ta|
|00004630| 67 20 22 54 65 6c 6e 65 | 74 20 74 6f 20 67 61 74 |g "Telne|t to gat|
|00004640| 65 77 61 79 20 68 6f 73 | 74 22 20 3a 76 61 6c 75 |eway hos|t" :valu|
|00004650| 65 20 74 65 6c 6e 65 74 | 29 20 28 63 6f 6e 73 74 |e telnet|) (const|
|00004660| 20 3a 74 61 67 20 22 52 | 6c 6f 67 69 6e 20 74 6f | :tag "R|login to|
|00004670| 20 67 61 74 65 77 61 79 | 20 68 6f 73 74 22 20 3a | gateway| host" :|
|00004680| 76 61 6c 75 65 20 72 6c | 6f 67 69 6e 29 20 28 63 |value rl|ogin) (c|
|00004690| 6f 6e 73 74 20 3a 74 61 | 67 20 22 55 73 65 20 53 |onst :ta|g "Use S|
|000046a0| 4f 43 4b 53 20 70 72 6f | 78 79 22 20 3a 76 61 6c |OCKS pro|xy" :val|
|000046b0| 75 65 20 73 6f 63 6b 73 | 29 20 28 63 6f 6e 73 74 |ue socks|) (const|
|000046c0| 20 3a 74 61 67 20 22 55 | 73 65 20 53 53 4c 20 66 | :tag "U|se SSL f|
|000046d0| 6f 72 20 61 6c 6c 20 63 | 6f 6e 6e 65 63 74 69 6f |or all c|onnectio|
|000046e0| 6e 73 22 20 3a 76 61 6c | 75 65 20 73 73 6c 29 20 |ns" :val|ue ssl) |
|000046f0| 28 63 6f 6e 73 74 20 3a | 74 61 67 20 22 55 73 65 |(const :|tag "Use|
|00004700| 20 74 68 65 20 60 74 63 | 70 27 20 70 61 63 6b 61 | the `tc|p' packa|
|00004710| 67 65 22 20 3a 76 61 6c | 75 65 20 74 63 70 29 20 |ge" :val|ue tcp) |
|00004720| 28 63 6f 6e 73 74 20 3a | 74 61 67 20 22 44 69 72 |(const :|tag "Dir|
|00004730| 65 63 74 20 63 6f 6e 6e | 65 63 74 69 6f 6e 22 20 |ect conn|ection" |
|00004740| 3a 76 61 6c 75 65 20 6e | 61 74 69 76 65 29 29 20 |:value n|ative)) |
|00004750| 3a 67 72 6f 75 70 20 27 | 75 72 6c 2d 68 61 69 72 |:group '|url-hair|
|00004760| 79 29 0a 23 40 31 34 20 | 2a 47 6f 74 20 58 45 6d |y).#@14 |*Got XEm|
|00004770| 61 63 73 3f 1f 0a 28 64 | 65 66 76 61 72 20 75 72 |acs?..(d|efvar ur|
|00004780| 6c 2d 72 75 6e 6e 69 6e | 67 2d 78 65 6d 61 63 73 |l-runnin|g-xemacs|
|00004790| 20 28 73 74 72 69 6e 67 | 2d 6d 61 74 63 68 20 22 | (string|-match "|
|000047a0| 58 45 6d 61 63 73 22 20 | 65 6d 61 63 73 2d 76 65 |XEmacs" |emacs-ve|
|000047b0| 72 73 69 6f 6e 29 20 28 | 23 24 20 2e 20 2d 31 38 |rsion) (|#$ . -18|
|000047c0| 32 38 30 29 29 0a 23 40 | 34 38 20 41 6e 20 61 73 |280)).#@|48 An as|
|000047d0| 73 6f 63 20 6c 69 73 74 | 20 6f 66 20 70 72 6f 74 |soc list| of prot|
|000047e0| 6f 63 6f 6c 73 20 61 6e | 64 20 64 65 66 61 75 6c |ocols an|d defaul|
|000047f0| 74 20 70 6f 72 74 20 23 | 73 1f 0a 28 64 65 66 76 |t port #|s..(defv|
|00004800| 61 72 20 75 72 6c 2d 64 | 65 66 61 75 6c 74 2d 70 |ar url-d|efault-p|
|00004810| 6f 72 74 73 20 27 28 28 | 22 68 74 74 70 22 20 2e |orts '((|"http" .|
|00004820| 20 22 38 30 22 29 20 28 | 22 67 6f 70 68 65 72 22 | "80") (|"gopher"|
|00004830| 20 2e 20 22 37 30 22 29 | 20 28 22 74 65 6c 6e 65 | . "70")| ("telne|
|00004840| 74 22 20 2e 20 22 32 33 | 22 29 20 28 22 6e 65 77 |t" . "23|") ("new|
|00004850| 73 22 20 2e 20 22 31 31 | 39 22 29 20 28 22 68 74 |s" . "11|9") ("ht|
|00004860| 74 70 73 22 20 2e 20 22 | 34 34 33 22 29 20 28 22 |tps" . "|443") ("|
|00004870| 73 68 74 74 70 22 20 2e | 20 22 38 30 22 29 29 20 |shttp" .| "80")) |
|00004880| 28 23 24 20 2e 20 31 38 | 33 37 39 29 29 0a 23 40 |(#$ . 18|379)).#@|
|00004890| 33 37 20 2a 48 61 73 20 | 73 65 74 75 70 20 63 6f |37 *Has |setup co|
|000048a0| 6e 66 69 67 75 72 61 74 | 69 6f 6e 20 62 65 65 6e |nfigurat|ion been|
|000048b0| 20 64 6f 6e 65 3f 1f 0a | 28 64 65 66 76 61 72 20 | done?..|(defvar |
|000048c0| 75 72 6c 2d 73 65 74 75 | 70 2d 64 6f 6e 65 20 6e |url-setu|p-done n|
|000048d0| 69 6c 20 28 23 24 20 2e | 20 2d 31 38 35 37 39 29 |il (#$ .| -18579)|
|000048e0| 29 0a 23 40 32 37 34 20 | 2a 57 68 65 74 68 65 72 |).#@274 |*Whether|
|000048f0| 20 74 6f 20 66 6f 72 63 | 65 20 61 20 73 6f 75 72 | to forc|e a sour|
|00004900| 63 69 6e 67 20 6f 66 20 | 74 68 65 20 6e 65 78 74 |cing of |the next|
|00004910| 20 62 75 66 66 65 72 2e | 20 20 54 68 69 73 20 66 | buffer.|  This f|
|00004920| 6f 72 63 65 73 20 6c 6f | 63 61 6c 0a 66 69 6c 65 |orces lo|cal.file|
|00004930| 73 20 74 6f 20 62 65 20 | 72 65 61 64 20 69 6e 74 |s to be |read int|
|00004940| 6f 20 61 20 62 75 66 66 | 65 72 2c 20 6e 6f 20 6d |o a buff|er, no m|
|00004950| 61 74 74 65 72 20 77 68 | 61 74 2e 20 20 47 65 74 |atter wh|at.  Get|
|00004960| 73 20 61 72 6f 75 6e 64 | 20 74 68 65 0a 6f 70 74 |s around| the.opt|
|00004970| 69 6d 69 7a 61 74 69 6f | 6e 20 74 68 61 74 20 69 |imizatio|n that i|
|00004980| 66 20 79 6f 75 20 61 72 | 65 20 70 61 73 73 69 6e |f you ar|e passin|
|00004990| 67 20 69 74 20 74 6f 20 | 61 20 76 69 65 77 65 72 |g it to |a viewer|
|000049a0| 2c 20 6a 75 73 74 20 6d | 61 6b 65 20 61 0a 73 79 |, just m|ake a.sy|
|000049b0| 6d 62 6f 6c 69 63 20 6c | 69 6e 6b 2c 20 77 68 69 |mbolic l|ink, whi|
|000049c0| 63 68 20 6c 6f 6f 73 65 | 73 20 69 66 20 79 6f 75 |ch loose|s if you|
|000049d0| 20 77 61 6e 74 20 74 68 | 65 20 73 6f 75 72 63 65 | want th|e source|
|000049e0| 20 66 6f 72 20 69 6e 6c | 69 6e 65 64 0a 69 6d 61 | for inl|ined.ima|
|000049f0| 67 65 73 2f 65 74 63 2e | 1f 0a 28 64 65 66 76 61 |ges/etc.|..(defva|
|00004a00| 72 20 75 72 6c 2d 73 6f | 75 72 63 65 20 6e 69 6c |r url-so|urce nil|
|00004a10| 20 28 23 24 20 2e 20 2d | 31 38 36 36 34 29 29 0a | (#$ . -|18664)).|
|00004a20| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 11 c1 5c |(byte-co|de "...\|
|00004a30| 6e 42 12 c3 14 c4 5c 6e | 42 12 c5 c6 21 ac 83 c7 |nB....\n|B...!...|
|00004a40| 16 06 c6 5c 6e 42 12 c5 | c8 21 ac 83 c9 16 08 c8 |...\nB..|.!......|
|00004a50| 5c 6e 42 12 c1 87 22 20 | 5b 28 28 22 53 75 6e 64 |\nB..." |[(("Sund|
|00004a60| 61 79 22 20 2e 20 30 29 | 20 28 22 4d 6f 6e 64 61 |ay" . 0)| ("Monda|
|00004a70| 79 22 20 2e 20 31 29 20 | 28 22 54 75 65 73 64 61 |y" . 1) |("Tuesda|
|00004a80| 79 22 20 2e 20 32 29 20 | 28 22 57 65 64 6e 65 73 |y" . 2) |("Wednes|
|00004a90| 64 61 79 22 20 2e 20 33 | 29 20 28 22 54 68 75 72 |day" . 3|) ("Thur|
|00004aa0| 73 64 61 79 22 20 2e 20 | 34 29 20 28 22 46 72 69 |sday" . |4) ("Fri|
|00004ab0| 64 61 79 22 20 2e 20 35 | 29 20 28 22 53 61 74 75 |day" . 5|) ("Satu|
|00004ac0| 72 64 61 79 22 20 2e 20 | 36 29 20 28 22 54 75 65 |rday" . |6) ("Tue|
|00004ad0| 73 22 20 2e 20 32 29 20 | 28 22 54 68 75 72 73 22 |s" . 2) |("Thurs"|
|00004ae0| 20 2e 20 34 29 20 28 22 | 53 75 6e 22 20 2e 20 30 | . 4) ("|Sun" . 0|
|00004af0| 29 20 28 22 4d 6f 6e 22 | 20 2e 20 31 29 20 28 22 |) ("Mon"| . 1) ("|
|00004b00| 54 75 65 22 20 2e 20 32 | 29 20 28 22 57 65 64 22 |Tue" . 2|) ("Wed"|
|00004b10| 20 2e 20 33 29 20 28 22 | 54 68 75 22 20 2e 20 34 | . 3) ("|Thu" . 4|
|00004b20| 29 20 28 22 46 72 69 22 | 20 2e 20 35 29 20 28 22 |) ("Fri"| . 5) ("|
|00004b30| 53 61 74 22 20 2e 20 36 | 29 29 20 77 65 65 6b 64 |Sat" . 6|)) weekd|
|00004b40| 61 79 2d 61 6c 69 73 74 | 20 63 75 72 72 65 6e 74 |ay-alist| current|
|00004b50| 2d 6c 6f 61 64 2d 6c 69 | 73 74 20 28 28 22 4a 61 |-load-li|st (("Ja|
|00004b60| 6e 22 20 2e 20 31 29 20 | 28 22 46 65 62 22 20 2e |n" . 1) |("Feb" .|
|00004b70| 20 32 29 20 28 22 4d 61 | 72 22 20 2e 20 33 29 20 | 2) ("Ma|r" . 3) |
|00004b80| 28 22 41 70 72 22 20 2e | 20 34 29 20 28 22 4d 61 |("Apr" .| 4) ("Ma|
|00004b90| 79 22 20 2e 20 35 29 20 | 28 22 4a 75 6e 22 20 2e |y" . 5) |("Jun" .|
|00004ba0| 20 36 29 20 28 22 4a 75 | 6c 22 20 2e 20 37 29 20 | 6) ("Ju|l" . 7) |
|00004bb0| 28 22 41 75 67 22 20 2e | 20 38 29 20 28 22 53 65 |("Aug" .| 8) ("Se|
|00004bc0| 70 22 20 2e 20 39 29 20 | 28 22 4f 63 74 22 20 2e |p" . 9) |("Oct" .|
|00004bd0| 20 31 30 29 20 28 22 4e | 6f 76 22 20 2e 20 31 31 | 10) ("N|ov" . 11|
|00004be0| 29 20 28 22 44 65 63 22 | 20 2e 20 31 32 29 29 20 |) ("Dec"| . 12)) |
|00004bf0| 6d 6f 6e 74 68 61 62 62 | 72 65 76 2d 61 6c 69 73 |monthabb|rev-alis|
|00004c00| 74 20 62 6f 75 6e 64 70 | 20 75 72 6c 2d 6c 61 7a |t boundp| url-laz|
|00004c10| 79 2d 6d 65 73 73 61 67 | 65 2d 74 69 6d 65 20 30 |y-messag|e-time 0|
|00004c20| 20 75 72 6c 2d 65 78 74 | 65 6e 73 69 6f 6e 73 2d | url-ext|ensions-|
|00004c30| 68 65 61 64 65 72 20 22 | 53 65 63 75 72 69 74 79 |header "|Security|
|00004c40| 2f 44 69 67 65 73 74 20 | 53 65 63 75 72 69 74 79 |/Digest |Security|
|00004c50| 2f 53 53 4c 22 5d 20 32 | 29 0a 23 40 34 38 20 2a |/SSL"] 2|).#@48 *|
|00004c60| 41 20 73 79 6e 74 61 78 | 20 74 61 62 6c 65 20 66 |A syntax| table f|
|00004c70| 6f 72 20 70 61 72 73 69 | 6e 67 20 74 68 65 20 6d |or parsi|ng the m|
|00004c80| 61 69 6c 73 65 72 76 65 | 72 20 55 52 4c 1f 0a 28 |ailserve|r URL..(|
|00004c90| 64 65 66 76 61 72 20 75 | 72 6c 2d 6d 61 69 6c 73 |defvar u|rl-mails|
|00004ca0| 65 72 76 65 72 2d 73 79 | 6e 74 61 78 2d 74 61 62 |erver-sy|ntax-tab|
|00004cb0| 6c 65 20 28 63 6f 70 79 | 2d 73 79 6e 74 61 78 2d |le (copy|-syntax-|
|00004cc0| 74 61 62 6c 65 20 65 6d | 61 63 73 2d 6c 69 73 70 |table em|acs-lisp|
|00004cd0| 2d 6d 6f 64 65 2d 73 79 | 6e 74 61 78 2d 74 61 62 |-mode-sy|ntax-tab|
|00004ce0| 6c 65 29 20 28 23 24 20 | 2e 20 2d 31 39 35 35 31 |le) (#$ |. -19551|
|00004cf0| 29 29 0a 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |)).(byte|-code ".|
|00004d00| c1 c2 0b 23 88 c0 c4 c2 | 0b 23 88 c0 c5 c6 0b 23 |...#....|.#.....#|
|00004d10| 88 c0 c7 c8 0b 23 88 c0 | c9 ca 0b 23 87 22 20 5b |.....#..|...#." [|
|00004d20| 6d 6f 64 69 66 79 2d 73 | 79 6e 74 61 78 2d 65 6e |modify-s|yntax-en|
|00004d30| 74 72 79 20 3f 5c 27 20 | 22 5c 22 22 20 75 72 6c |try ?\' |"\"" url|
|00004d40| 2d 6d 61 69 6c 73 65 72 | 76 65 72 2d 73 79 6e 74 |-mailser|ver-synt|
|00004d50| 61 78 2d 74 61 62 6c 65 | 20 3f 5c 60 20 3f 5c 3c |ax-table| ?\` ?\<|
|00004d60| 20 22 28 3e 22 20 3f 5c | 3e 20 22 29 3c 22 20 3f | "(>" ?\|> ")<" ?|
|00004d70| 5c 2f 20 22 20 22 5d 20 | 34 29 0a 23 40 32 33 36 |\/ " "] |4).#@236|
|00004d80| 20 2a 48 6f 6f 6b 73 20 | 74 6f 20 62 65 20 72 75 | *Hooks |to be ru|
|00004d90| 6e 20 75 6e 74 69 6c 20 | 6f 6e 65 20 63 61 6e 20 |n until |one can |
|00004da0| 73 75 63 63 65 73 73 66 | 75 6c 6c 79 20 74 72 61 |successf|ully tra|
|00004db0| 6e 73 66 6f 72 6d 20 61 | 6e 20 69 6e 63 6f 6d 70 |nsform a|n incomp|
|00004dc0| 6c 65 74 65 20 55 52 4c | 2e 0a 0a 45 61 63 68 20 |lete URL|...Each |
|00004dd0| 68 6f 6f 6b 20 69 73 20 | 63 61 6c 6c 65 64 20 77 |hook is |called w|
|00004de0| 69 74 68 20 61 20 73 69 | 6e 67 6c 65 20 61 72 67 |ith a si|ngle arg|
|00004df0| 75 6d 65 6e 74 20 55 52 | 4c 20 61 6e 64 20 73 68 |ument UR|L and sh|
|00004e00| 6f 75 6c 64 20 72 65 74 | 75 72 6e 20 61 20 74 72 |ould ret|urn a tr|
|00004e10| 61 6e 66 6f 72 6d 65 64 | 0a 75 72 6c 20 77 69 74 |anformed|.url wit|
|00004e20| 68 20 61 20 76 61 6c 69 | 64 20 73 63 68 65 6d 65 |h a vali|d scheme|
|00004e30| 20 28 65 2e 67 2e 2c 20 | 22 67 6e 75 22 20 2d 2d | (e.g., |"gnu" --|
|00004e40| 3e 20 22 68 74 74 70 3a | 2f 2f 77 77 77 2e 67 6e |> "http:|//www.gn|
|00004e50| 75 2e 6f 72 67 2f 22 29 | 2c 20 6f 72 20 6e 69 6c |u.org/")|, or nil|
|00004e60| 0a 6f 74 68 65 72 77 69 | 73 65 2e 1f 0a 28 64 65 |.otherwi|se...(de|
|00004e70| 66 76 61 72 20 75 72 6c | 2d 68 61 6e 64 6c 65 2d |fvar url|-handle-|
|00004e80| 6e 6f 2d 73 63 68 65 6d | 65 2d 68 6f 6f 6b 20 6e |no-schem|e-hook n|
|00004e90| 69 6c 20 28 23 24 20 2e | 20 2d 31 39 38 34 31 29 |il (#$ .| -19841)|
|00004ea0| 29 0a 23 40 34 31 20 2a | 4d 61 6b 65 20 4f 53 2f |).#@41 *|Make OS/|
|00004eb0| 32 20 68 61 70 70 79 20 | 77 69 74 68 20 6f 75 72 |2 happy |with our|
|00004ec0| 20 43 52 4c 46 20 70 61 | 69 72 73 2e 2e 2e 1f 0a | CRLF pa|irs.....|
|00004ed0| 28 64 65 66 76 61 72 20 | 74 63 70 2d 62 69 6e 61 |(defvar |tcp-bina|
|00004ee0| 72 79 2d 70 72 6f 63 65 | 73 73 2d 69 6e 70 75 74 |ry-proce|ss-input|
|00004ef0| 2d 73 65 72 76 69 63 65 | 73 20 6e 69 6c 20 28 23 |-service|s nil (#|
|00004f00| 24 20 2e 20 2d 32 30 31 | 33 35 29 29 0a 28 70 72 |$ . -201|35)).(pr|
|00004f10| 6f 76 69 64 65 20 27 75 | 72 6c 2d 76 61 72 73 29 |ovide 'u|rl-vars)|
|00004f20| 0a                      |                         |.       |        |
+--------+-------------------------+-------------------------+--------+--------+